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ASMBO 


ISIS-II 8080/6085 


LOC 


Fooo 


FOOO 
FOOS 
FOOS 
Foo? 
FOO9 
Foor 
FOOE 
FOOF 
Foi 
FOL4 
FOi7 
FOLA 


FOint 
Foro 


*+F1:EXPL85,ASM MACROFILE mMOD8S PRINT(:LF:) PAGEWIOTH( 80) 


ORJ 


C303F0 


SEBO 
U3SF2 
SEO9 
BEF 8F6 
USFS 
AF 
SEF9FS8 
DSFo 
ZLESF4 
2SFOFA 


S1BAFS 
22FRF8 
(33FFO 


MACRO 


SEQ 


No *8 op OF py be 


row & 


ASSEMBLER, V2.0 EXFL85 FAGE i 
SOURCE STATEMENT 
NAME EXFL85 
§ KHL H HHH HHH HEHEHE EE HHH HEH HHH SESE HEHEHE IEE HEHEHE ERE 
KEKRKE KEKE EEE REE 
; MONITOR MACROS 
5 ERLE EI E HEHE EEE EEE KEKE HEEL HEE KEKE EER EEE EE EEE KEKE ER EER EEE 


KEEKHKEEHERKEREE 
TRUE MACRO WHERE > BRANCH IF FUNCTION RETURNS TR 
UE 

JC WHERE 

ENDM 


? 
FALSE MACRO WHERE * BRANCH IF FUNCTION RETURNS FA 


JNC WHERE 
ENDM 


7 ' 
SEEK KEKKEKEEEEEKEE KEKE EEE EKEREREER EERE LEER EEERERERERE HE RER 


KKEKKHEKERKERHER EE 
$ 
? 
; HHL HEHEHE EHH EKER EKER RHHEREE 
; RESTART ENTRY FOINT - RESET 
; HK KEKKEK KEKE E KEE RKKE KE REEEE 
ORG OF OOOH 
BOOT: 
JMF START + CLEAR BOOT AND BEGIN MONITOR 
START: 
MVI A+ 80H 
OUT FORTAL 
MV I As09H 
STA USCSR 
OUT CSR 
XRA & 
STA LCOUNT 
OUT FORTA >; SET FORT DATACENABLE SIO) 
LXI H» COUT 
SHLD Nout ; INITIALIZE OUTPUT CHANNEL TO 
CONSOLE 
LXI H» CIN 
SHLD DIN 
JMF STARTL 


ISIS-II 8086/8085 MACRO 


LOC 


Fo24 
FO24 


Fo2C 
FO2C 


FoO34 
FO3S4 


FaO3C 
FO3C 


FOSF 
FOL 
Fod4 


FO47 
FO48 


FoO4+5 
FOSE 


FOF 
Fos? 
FOSS 
FOSS6 
FOS7 
FOS8 
FOOSE 
FOSE 
FOSF 
FOS2 


FO65 
FOS6 
FO67 
F068 


F069 


FO6E 
FO6E 
FO7Q 
FO71 


OBJ 


C338F2 


C3A6F8 


C3ASF8 


C34BFO 


SESF 
SEFAFS& 
C335F4 


FB 
C372FO 


22E2F8 
El 


210CF8 
F9 


Ei 
2ZEOFS 
210600 
39 
22E7F8 
Z2LEOFS 


F9 
CS 
05 


20 
E60F 


SZE4F6 
BSEOE 


30 
FB 


SEQ 


ASSEMBLER? V2.0 


EXPL85 PAGE = 


SOURCE STATEMENT 


ORG 
JMP 


ORG 
JMF 


“> ee 


ORG 
JMF 


ORG 
JMF 
START: 


SIORET: 


RSAVE: 


ACK 


LXI 
STORING THE 
SPHL 
PUSH 
PUSH 
RIM 


ANI 


STA 
MVI 


SIM 
EI 


OFO24H 

STP25 ¢$ TRAP INTERRUPT VECTOR 
OFO2ZCH 

RSTSS 

OFO34H 

RST65 

OF O3CH 

RSAVE ,; RST 7,5 VECTOR 

Ar63 * LOAD DISPLAY LENGTH INTO A 
LLIMIT + SET DISPLAY LENGTH 

SIOTST + GET BAUD RATE 

MESAGE 

LSAV >; SAVE H&L REGISTERS 

H + GET USER FROG COUNTER FROM ST 
H+ MNSTEK 

PSAV >; AND STORE IT 

FSW 

H 

FSAV > STORE FLAGS AND ACCUMULATOR 
H+O + CLEAR H&L ; 
SF > GET USER STACK FOINTER 

SSAV + STORE USER STACK POINTER 

H+» BSAV4+1 ' 3 SET STACK POINTER FOR 


¢ REMAINING REGISTERS 
B ¢ SAVE B&C REGISTERS 
0 ; SAVE D&E REGISTERS 
+ GET USER INTERUFT STATUS AND 


OFH + MASK UNNECESSARY BITS (----XX 


ISAV ¢ SAVE INTERUPT STATUS 
AysUNMSK + UNMASK INTERUFTS FOR MONITOR 


F EEK HHH E KEE EE KEH EE HEHEHE EE EERE EEE REE EE EEE EREEEE EERE EERE EEER 
KEKE KHEHHKEEEEEKKHEEH 


rs 
? 


> F 


MONITOR EQUATES 


I515-1i 8080/8085 MACRO ASSEMBLER, V2.0 EXPL85 PAGE 3 


LOC OBJ SEQ SOURCE STATEMENT 


96 3 
D7 fF HEHEHE HHH EE HEE KKK KEKE EK HEHEHE HEHE EHH HEHE KEK ER EEK KE KREES 
HEE EEKEKEEEEKEREKEEE 


9B ; 
OoO9 o9 BITSI EQU 9 > NUMBER OF INPUT BITS 
OOK 1900 BITSO EQU 1i > NUMBER OF OUTFUT BITS 
Oo1B 191 BRCHR EQU 1BH * CODE FOR BREAK CHARACTER (ESC 
AF'E } 
F7FA 102 BRTAB EQU OF7FAH + START OF BRANCH TABLE IN ROM 
ooon 103 CR EQU ODH + CODE FOR CARRIAGE RETURN 
OOFS 1904 CSR EQU _ OF 8H >; 8155 COMMAND/STATUS REGISTER 
ADDRESS 
OO1LB 105 ESC EQU 1BH >; CODE FOR ESCAPE CHARACTER 
OOF 196 HCHAR EQu OFH + MASK FOR LOWER HALF OF BYTE 
GOOF E 107 INVRT EQU OFFH + MASK TQ INVERT HALF BYTE FLAG 
OOO 108 LF EQU OAH *; CODE FOR LINE FEED 
Ona0 199 LOWER EQU Q >; LOWER HALF BYTE IN ICME 
FalnC 110 MNSTK EQU OFBDCH + START OF MONITOR STACK 
OOFO 111i FORTA EQU OF OH $s SYSTEM FORT & 
OOF? liz FORTAD EQU OF 2H + FORT A DIRECTION REGISTER 
OOF L 113 FORTB EQU OF LH +; FORT B 
OOFS 1i4 FORTBD ERU OFSH + PORT B DIRECTION REGISTER 
OOFER 115 FORTC EQU OF BH > 8155 FORT C 
OOFS 1416 FRLOUT EQU OF9H 3 FARELLEL OUTPUT PORT (8155 FO 
RT A} 
OOF A 117 FRLIN EQu OF AH + FARALLEL INFUT FORT (6155 FOR 
T B) 
O07 F235 14118 PRTYO EQU O7FH + MASK TO CLEAR FARITY FROM CON 
SOLE CHAR 
FRAG 119 RSTSS EQU OF BAGH 
F8AS 120 RST65 EQU OF 8A3H 
FAG 121 RAMST EQU OFBOOH +; START OF RAM 
OO2e 22 RMUSE EQU 34 + MONITOR RAM USAGE 
O08O 123 SSTRT EQU BOH + SHIFTED START BIT 
Ooca i24 STRT EQU OCOH + UNSHIFTED START BIT 
OO4C 125 STOFB EGU 40H > STOF BIT 
OO1LB 126 TERM EQU 1BH > CODE FOR ICMDO TERMINATION (ES 
CAFE) 
OOFD 127 TIMHI EQU OF OH 
OOFC 128 TIMLG EGU OFCH 
QOODE 127 UNMSK EQU OEH > UNMASK INFUT INTERUFT 
OOF F 130 UFPER EQuU OFFH ; UPPER HALF BYTE IN ICMD 
FRAO 131i USINT EQU OF BAOH 
132 ; : 
133 
134 ; 
135 ; KX KEKK EEE RHE RHE KH HEREE 
136 ; * - 
137 ; *xF RINT SIGNON MESSAGE* 
136 ; * * 
LSP 33 EERE E EKER EKER KKEEEEH 
140 3; 
141 3; 
142 MESAGE: 


FO72 2142F7 143 LXI H; SINON ; GET ADDRESS OF SIGNON 


ISIS-II 8080/8085 MACRO 


LOC 


LOC - 
FoO75 


FO77 
FO78 
FO7EB 
Fo7c 
Fo7t 


FO8G 
FOOL 


FO84 
Foss 


F087 
FOBA 
Fost 
FOSa 
FO93 
Food 
Fo97 
FO9A 


FOOSE 


OBJ 


ORS 
064A 


4E 
COIDAF4 
eo 
OS 
C277FO 


AF 
21DCF8 


F9 
OEZE 


CH1L4F5 
C380F0O 


Ché3F5 
CD14 
72 
OLOBOO 
el Bar7 
BE 


CAAGFO 


SEQ 


SEQ 
144 
145 
146 


187 


ASSEMBLER: V2.0 EXPL85 PAGE 4 


SOURCE STATEMENT 
MESSAGE 
MVI B+ LSGNON ; GET CHARACTER COUNT 
MSGL: 
MOV CM + FETCH CHARACTER TO C REGISTER 
CALL co + OUTPUT CHARACTER TO CONSOLE 
INX H + POINT TO NEXT CHARACTER ; 
DCR B + DECREMENT CHARACTER COUNTER 
JNZ MSGL +; RETURN FOR NEXT CHARACTER 
; HEHEHE HEHEHE KH KEKE HEHE EERE EHEEEE 
: * * 
; *COMMANDTD RECOGNIZING ROUTINE* 
; * x¥ 
; HHEKHEK HEHEHE HHH HEHEHE HRE HHH 
7 FUNCTION: GETCM 
? INFUTS: NONE 
+ OUTFUTS: NONE 
* CALLS: GETCH»s ECHO, ERROR 
+; DESTROYS: A+B» C+H» Ls F/F’S 
+; DESCRIPTION: GETCM RECIEVES AN INPUT CHARACTER FROM T 


HE USER AND ATTEMPTS 

; TO LOCATE IT IN ITS COMMAND TABLE, IF S 
UCCESSFUL+ THE ROU- 
; TINE CORRESPONDING TO THIS CHARACTER [5S 
SELECTED FROM ITS 
; TABLE OF COMMAND ROUTINE ADDRESSES: AND 
CONTROL IS TRANS- 
; FERRED TQ THIS ROUTINE. IF THE CHARACTE 
R DOES NOT MATCH 


; ANY ENTRIES, CONTROL IS FASSED TO THE ER 
ROR HANDLER, 
GETCM: 

XRA A 

LXI H+ MNSTK + RESET STACK FOINTER TO MONITO 
R 

SPHL 

MVI Crys” $ PROMPT CHARACTER TO C REGISTE 
R 

CALL ECHO * OUTPUT FROMPT 

JMF GTCOS3 § LEAVE ROOM FOR RST BRANCH 
GTCOS: 

CALL GETCH § GET COMMAND CHARACTER TO A 

CALL ECHO # ECHO CHARACTER TO USER 

MOV AsC 

LXI B»yNCMDS +; C CONTAINS LOOF AND INDEX Cou 
NT 

LXI H>CTAB + H&L POINTS TO COMMAND TABLE 
GTCOS: 
cae CMP M + COMPARE ENTRY TO TABLE CHARAC 


JZ GTCio * BRANCH IF EQUAL COMMAND RECO 


1515-11 8080/8085 MACRO 


LOC 


LOC 
FOSE 


FOF 
FOAG 
FOAS 


FOA6 


FOA? 


FOAA 


FOAB 
FOAC 


FOAL 
FOAE 
FOAF 


FORO 
FOR2 
FOBS 
FOBS 


OBJ SEQ 
OBJ SEQ 
23 188 
ob 189 
C29AFO 190 
C34CF53 191 
192 

ZIPAF7 193 
oF 194 
oy 195 
7E 196 
zo 197 
66 198 
6F 199 
ES 200 
201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

Zid 

212 

213 

214 

2is 

216 

217 

218 

219 

220 

OREO? 221 
COCEFS 222 
SAFAFS8 223 
FESE 224 
DACZFO 225 
SEOF 226 
C3C4FOQ 227 
( 228 
BEOQ7 229 
230 

S2F7F8 231 


ASSEMBLER, V2.0 


SOURCE STATEMENT 


GNIZED 
INX H 
R 
DCR Cc 
JNZ GTCOS 
JMP ERROR 
LLEGAL 
GTCio; 
LXI H» CADR 
OF CMD TABLE 
DAD B 
COUNTER TO 
DAD B 
CmMo ADDR 
MOV A»M 
INX H 
2 BYTES LONG) 
MOV HsM 
MOV L:A 
“i Pat oe + NEXT 
HEHEHE HEHEHE HEHEHE EK 


COMMANE! 


EXPL85 PAGE bs) 


a 


ELSE, POINT TO NEXT CHARACTE 
DECREMENT LOOF COUNTER 

BRANCH IF NOT AT TABLE END 
ELSE+ COMMAND CHARACTER IS I 
FOR GOOD COMMAND, LOAD ADDR 
400 WHAT IS LEFT OF THE LOOP 
OFFSET THE H&L POINTER TO THE 


GET LSE OF ADDRESS TO A 
INCREMENT POINTER (ADDRESS 15 


MOV MSB TO H REGISTER 
MOVE LSBYTE TO L REGISTER 


INSTRUCTION COMES FROM CMD ROUTI 


HHEEKKEEEEEKEREEKREKEEEEEERRERKEREEKEEREREEKKEEEEKEREKEERE 


IMPLEMENTING ROUTINES 


5 

; 

> KEKE ERKEKEEEEEEEEERKEEEEKEERE EER EEREEEEEEK EKER EEEE 
HEKEEEEE EKER HEREREE 


a 
? 


FUNCTION: 
INPUTS: 
QUTPUTS: 
CALLS: 
DESTROYS: 
DESCRIPTION: 
pn") 


Zz Mt we MP ee Pe ee 


mb Ww 


DCMDE: 


DCOMO6: 


DCMO7; 


DCMD 
NONE 
NONE 


ECHO», NMOUT> HILO+ GETCM: CROUT >» GETNM 
As Bs C+D+E+H» Ls F/FSS 
DCMO. IMPLEMENTS THE DISFLAY MEMORY COMMA 


Cr2 
GETNM 
LLIMIT 
62 
DCMOS 
AsOFH 
DCMO7 


4+0O7H 


NEWLN 


7 


a 
Y 


GET TWO NUMBERS FROM INFUT 


GET CURRENT LINE LEGNTH 


SET NEW LINE MASK 


ISIS-II 8080/8085 


LOC 


FOC7 
Foce 


FOC? 
Focc 


FOCL 
FoOnO 
FOL1 


Fond 
Fons 
FOnS 


FODA 
Fong 


FOES 
FOES 
FOE6 


FOES 
FOEA 
FOELI 
FOEE 
FOF 44 


OBJ 


Ci 
El 


COOSFS 
7C 


CO45F6 
70 
CO4SF6 


OEZO 
COL4F5 
TE 


COU43F6 
COODF6 


DZE9FO 
COO6FS 
C380FG 


23 
SAF7F8 
AS 
C204F0 
CSCIFO 


FOF4 COG63F5 


FOF? 


COLI4kS 


FOFA 79 


MACRO 


SEQ 


232 
233 
234 
235 
236 


237 
238 
239 
240 
241 
242 
243 


244 
245 


246 
247+ 
248 
249 
250 
251 
252 
253 
254 
255 
236 
257 
258 


259 
260 
261 
262 
263 
264 
265 


266 


ASSEMBLER, V2.0 


EXPL85 PAGE 6 


SOURCE STATEMENT 
FOF a) * ENDING ADDRESS TO DRE 
POP H * BEGINNING ADDRESS TO H&L 
DCMOS: 
CALL CROUT s+ OQUTFUT CR/LF TO CONSOLE 
MOV ArH + DISPLAY ADDRESS OF FIRST LOCA 
TION 
CALL NMOUT 
MOV ArL ; ADDRESS IS 2 BYTES LONG 
CALL NMOUT 
DCM10; 
MVI S72 thi? > USE BLANK TO SEPARATE DATA 
CALL ECHO 
MOV ArM * GET CONTENTS GF NEXT MEMORY L 
OCATION 
CALL NMOUT > DISPLAY CONTENTS 
CALL HILO + CHECK FOR LAST ADDRESS OF DIS 
FLAY DATA 
FALSE DCM15 ; IF NOT+ DISPLAY MORE DATA 
JNC DCMis 
CALL CROUT + END WITH CR/LF 
JMF GETCM > DONE. GET NEXT COMMAND 
DCMLS: 
INX H + FOINT TO NEXT CHARACTER 
LDA NEWLN 
ANA L + CHECK FOR START OF NEW LINE 
JINZ DCM1i9O > NO ~ NOT A NEW LINE 
JUMP DCMOS ? YES - BEGIN NEW LINE 
SEEKER KEKE KEKE EK KEKE RHEE KEK EHEE KEKE HEHEHE EEE HE KKRER EER KER 
HE KKERE EHH HEHEHE HEH HEH 
; FUNCTION: TOME 
3 INFUTS: NONE 
+; OUTPUTS: NONE 
+ CALLS: ERROR, CROUT 
+ DESTROYS: A» F/FS 
+ DESCRIPTION: TCMDE IT USED TO MANUALLY TURN THE TAFE I 
/0 CONTROL 
, CHANNEL ON AND OFF TO ALLOW FOR REWINDIN 
G: ETC. 
; WHEN CALLED:+ TCmMD LOOKS FOR THE NUMBER ” 
oO" TO IN- 
QDICATE OFF» OR THE NUMBER “i" TO INDICAT 


E ON+ OTHER 


R HANDLER, 

? 

TCMD: 
CALL 
CALL 
MOV 


CHARACTERS WILL CAUSE A CALL TO THE ERRO 


GETCH + GET A CHARACTER (1 GR O) 
ECHO 
ArT 


ISIS-II 8080/6085 MACRKG ASSEMBLER: V2.0 


LOC 


FOFE 
FOFLI 
Fiog 
Fio2 
Fios 
Fio7 
Fig? 
FiOgB 
FADE 
F1lio 
Fia2 


Fiis 
FLL? 


OBJ 


FESO 
CAOEFL 
FES1L 
C24CF5 
DBFO 
F608 
SFO 
C314F1 


DBFO 
EOF 7 
DSFO 


CHO6F5 
C38OFO 


COGAF 5 


D2SFFL 


79 
C33SF 1 


7A 
FEOD 


C24CF5 


C39FFS 


5EQ 


313 


314 
313 
316 
317 
318 
319 


TCMOO: 


TCMOL: 


SOURCE STATEMENT 


CALL 
JMF 


3 
+ FUNCTION: 
+ INPUTS: 
+ QUTPUTS: 
+ (CALLS: 
>; DESTROYS: 
+ DESCRIF TION: 
ANG ¢"G") 
GCML: 
CALL 
PUT 
FALSE 
JNC 
MOV 
CFI 
JNZ 
TEL 
LXI 
ADDRESS 
Mov 
INX 
MOV 
JUMP 
GCMOS: 
Moy 
CR 
CFI 
JNZ 
TED 
GCOM1LO; 
JMF 
UTION 


a 
? 


a 
J 


*O?/ 
TOMOO 
A 
ERROR 
PORTA 
O8H 
FORTA 
TCMOL 


FORTA 
OF7H 
FORTA 


CROUT 
GETCM 


GCmMD 
NONE 
NONE 


EXPL8&5 PAGE 7 


~~ 


Aid 


“. 


IF 18’5 0 - BRANCH 


IF NIETHER 1 OR O ERROR 


SET CTRL BIT 


H 
ro 


SET CTRL BIT 


u 
[| 


KEEL HEHEHE EEE HE KEE EEE EEEER KE SEKREREEREHEKRERERKRHE 


ERROR; GETHX+ RSTTE 
Ar Bs CeOsE+sHe Le F/FSS 
GCMLD' IMPLEMENTS THE BEGIN EXECUTION COMM 


GETHX 


GCCMOS 
GCMOS 


M>B 
GCM1O 


A, OI 
CR 
ERROR 


RSTOR 


GET ADDR (IF PRESENT) FROM IN 
BRANCH IF NO NUMBER FRESENT 
ELSE, GET TERMINATOR 

SEE IF CARRIAGE RETURN 

ERROR IF NOT PROFERLY TERMINA 


REPLACE FROG COUNTER W/START 


WITH NO START ADDR, CHECK FOR 


ERROR IF NOT FROFERLY TERMINA 


RESTORE REGISTERS+ BEGIN EXEC 


ISIS-II 8080/8085 MACRO 


LOC 


Fi38é 
FisSA 
Fist 
FiSF 


Fide 


Fi43 
Fité 
Fid7 
Fidd 
Fidk 


Fidn 
Fiso 


F1i53 
FAS6 


Fisg9 
Fisc 
FISF 
Fil6o 
Fié3 
F166 
F1ié7 
FLé6éA 


FiéB 
Fiéli 
Fi70 


Fi73 
Fi7é 
BLY, 
F17C 
Fazer 


OBS 


OEOL 
COCEFS 
SEFF 
BEF4F8 


C1 


CO63F5 
4F 
COL4FS 
77, 
FELB 


CA79FL 
COO3SF7 


TA4S3F iL 
CIESFS 


U273F 1 
COSAF3 


CS43Fi 


COBEFS 
C34CFS 
COBEFS 
COOSFS 
COBOFO 


SEQ SOURCE STATEMENT 
326 
KEKE EH KEEEEHEE HERE 
327 + 
328 ; 
329 3; FUNCTION: ICmMo 
330 +; INFUTS: NONE 
331 % OUTPUTS: NONE 
332 5s CALLS: 
+ GETNMs CROUT 
333 + DESTROYS: 
334 7 DESCRIFTION: 
COMMAND ("I") 
333 + 
336 ICMD: 
337 MVI Cri 
338 CALL GETNM 
339 MVI Ay UF FER 
340 STA TEMP 
LFBYTE FLAG 
341 FOP 0 
342 ICMOS: 
343 CALL GETCH 
344 MOV C+A 
345 CALL ECHO 
346 MOV A»sf 
347 CFI TERM 
ER 
348 JZ ICM25 
349 CALL VALDIIL 
ER 
350 TRUE ICMOS 
351+ Jc ICMOS 
352 CALL VALDIIG 
RACTER 
333 FALSE ICM20 
ER 
354+ JNC ICM20 
355 CALL CNVEN 
356 MOV CrA 
357 CALL STHLF 
358 LDA TEMF 
359 ORA A 
360 JNZ ICM10 
361 INX 0 
362 ICM1O:; 
363 XRI INVRT 
364 STA TEMF' 
365 JMF ICMOS 
346 ICMZO: 
367 CALL STHFOQ 
368 JMF ERROR 
369 ICM25: CALL STHFO 
370 CALL CROUT 
371 CALL GETCM 


ASSEMBLER, V2.0 


EXFPL85 FAGE 8 


FHKE EEK E KEKE HEE EE EEE EEE EE EEE HEHE EERE EEK EK EERE KEEKEEEE 


ord 


ERROR, ECHO» GETCHs VALDL» VALOG»s CNVBN:+ STHLF 


A+B+CsO+E+H» Lo» F/FSS 
ICMO IMPLEMENTS THE INSERT CODE INTO MEM 


se MP ae SE oe ~~ 


ah up Mh wee 


“e 


GET ONE NUMBER FROM INFUT 
TEMP HOLDS THE UPFER/LOWER HA 
START ADDRESS TO D&E 

GET A CHARACTER FROM INFUT 


ECHO CHARACTER TO CONSOLE 
MOV CHARACTER BACK TO A 
CHECK FOR TERMINATING CHARACT 


IF TERMINATOR: DONE ENTERING 
ELSE» CHECK FOR VALIO DELIMIT 


IF DELIMITER IGNOR CHARACTER 
ELSE: CHECK FOR VALID HEX CHA 


IF NOT; BRANCH TO ERROR HANDL 


CONVERT DIGIT TO BINARY 


STORE APPROPRIATE HALFWORD 
GET HALFBYTE FLAG 

SET F/ECS 

BRANCH IF FLAG SET FOR UFFER 
IF LOWER: INCREMENT ADDRESS 


TOGGLE STATE OF FLAG 
STORE FLAG 
FROCESS NEXT DIGIT 


ILLEGAL CHARACTER 

FILL ENTIRE BYTE BEFORE. ERROR 
JMP HERE FOR ESCAPE CHARACTER 
SEND OUT LF/CR 

RETURN FOR NEXT COMMAND 


ISIS-I1l 8080/8085 MACRO 


LOC OBJ 


QOEOS3 
CUCEFS 
Fi@7 Ci 


Fi8®& El 
F1ias G1 


CABOFO 


Fig? is 
Bao Ed 
COOOFS 


LiZBOFO 
C38AF 1 


SEQ 


373 
374 
375 


376 
377 
378 
379 
380 
381 
382 
383 


384 
385 
386 
387 
388 


389 
390 
391 
392 
393 
394 
395 
B96 
397 
398 
399 
400 
401 


402 
403 


404 
405 
406 


407 
408+ 
409 
410 
411 
412 


413 
414 
415 
416 
417 
418 
419 
$20 


ASSEMBLER» 


V2.0 


EXPL85 


SOURCE STATEMENT 


PAGE 9 


? 
F KEELE HEHE ERE KEK EEE REE REE E HEHEHE ERE E REE EERE EKEK 
KEKE HEEE 
$ 
; 
> FUNCTION: MCMO 
3; INPUTS: NONE 
* OQUTFUTS: NONE 
+ CALLS: GETCM+ HILO» GETNM 
> DESTROYS: A» B+C+O+Hs Le F/F7S 
+; DESCRIPTION: MCMDO IMPLEMENTS THE MOVE DATA IN MEMORY 
COMMAND ¢"M") 
MCMLE: 
MVI C3 
CALL GETNM > GET THREE NUMBERS FROM INFUT 
POF BR + GET DESTINATION ADDRESS TO Bt 
Gc 
FOF H + GET ENDING ADDRESS TO H&L 
FOF i] + GET STARTING ADDRESS TO D&E 
MCMOS; 
PUSH H +; SAVE ENDING ADDRESS 
MOV H» D 
MOV L+E + SOURCE ADDRESS TO H&L 
MOV ArM + GET SOURCE BYTE 
MOV H+» B 
MOV Let > DESTINATION ADDRESS TO H&L 
MOV M+A > MOVE BYTE TO DESTINATION 
INX B s' INCREMENT DESTINATION 40DRESS 
MOV A+B 
ORA & +; TEST FOR DESTINATION ADDRESS 
OVERFLOW 
3 (I,E. FROM FFFF TO 0000) 
JZ GCETCM F IF SO+ TERMINATE AND GET NEXT 
COMMAND 
INX 0 ; INCREMENT SOURCE ADDRESS 
POP H :; GET BACK ENDING ADDRESS 
CALL HILO + CHECK FOR ENDING ADDR >= SQUR 
CE ADLIR 
FALSE GETCM > IF NOT, COMMAND 15 DONE 
JNC GETCM 
JMF MCMOS + GET ANOTHER BYTE 


~~ = 


SKE KKH HHH EE KEKE HEHE EEE HHH KHER EK EEE EK EERE EEE 
HEKKEKEEE ERE KERKEX 


+ FUNCTION: CcCmoE 

5 INPUTS: NONE 

+ OUTFUTS: NONE 

; CALLS: GETHX+ GETCMs NMOUT+ ECHO 
* DESTROYS: ArBrC+ D+ EsHe Ly F/F’S 

? 


DESCRIPTION: CCMD IMPLEMENTS THE CHANGE CATA INTO MEM 


ISIS-iI 8680/8065 MACRO 


LOC 


LOC 


Fidz 


FiAS 
F1iA6é 


FiA7 
FiAS 
FiAA 
FiAn 
FLiAk 


a By = Bs 
FikS 
FiB6 


Fibs 
FiRB 


FiBE 
Fici 
FiC2 


FiCS 


FiC6é 


OBS 


OBJ 


CO64F3 


CS 
EL 


7A 
FE2O 
CAB2SF1 
FESC 
C280FO 


faa 
CO43F6 
OE2D 

COidFS 
CL6AF 3 


O2C2F i 
71 


aes 
Parte} 


CSA7F1 


CL6AFS 


ASSEMBLER» V2.0 


SOURCE STATEMENT 


) 


GETHX 


AD 


CCOM10 


? ‘ 
, 


GETCM 
A»M 
NMOUT 
| ey De 
ECHO 
GETHX 
CCM1i5S 
CCM1L5 
MC 

H 


CCOMOS 


EXPL85 PAGE 10 


“ 


“. 


~~ 


~ 


GET A NUMBER, IF FRESENT: FRO 


GET NUMBER TO H&L (DENOTES ME 
GET TERMINATOR FROM INFUT 

SEE IF SPACE 

YES - CONTINUE 

ELSE - SEE IF COMMA 

NO - TERMINATE COMMAND 

GET THE CONTENTS OF THE MEMOR 
DISPLAY AT CONSOLE 


USE “-" AS SEPARATOR 
GET NEW VALUE FOR MEMORY FROM 


IF NO VALUE PRESENT, BRANCH 
ELSE - STORE DATA IN MEMORY 


INCREMENT FOINTER TO NEXT ADD 


F EEK EHKE EKER HEE EKER EKEE HEE EE EEERERE EER ERE HEHEHE KHER HKEEE 


SEQ 
SEQ ORY COMMAND ¢("C” 
421 ; 
422 ; 
423 CCMD: 
424 CALL 
M INPUT 
$25 FUSH 
$26 FOP 
MORY ALILIR) 
427 CCMOS;: MOV 
428 CFI 
429 JZ 
430 CFI 
431 JNZ 
432 CCM1iO; 
433 MOV 
Y ADLR 
434 CALL 
435 MVI 
436 CALL 
437 CALL 
INPUT 
438 FALSE 
439+ JNC 
440 MOV 
$41 CCM15; 
442 INX 
RESS 
443 JMF 
444 3 
445 ; 
446 ; 
447 
REKKHKERKRHKKKRE 
448 5 
449 ; FUNCTION: 
$50 3 INFUTS: 
451 3; OUTPUTS: 
452 3; CALLS: 
453 ; DESTROYS: 
434 ; DESCRIPTION: 
WHEN IN- 
435 ; 
[iy THE 
456 ; 
AND THE 
457 3; 
THE CURRENT 
458 3 
459 ; 
460 ; 
461 SCMO:; 
462 CALL 
CONSOLE 
463 FALSE 


SCMD 
NONE 
NONE 


EVERYTHING 
IMPLEMENTS THE SINGLE STEF COMMAND. 


SCME 


VOKED, 


EACH TIME THE SFACE BAR IS PRESSE 


USERS PROGRAM IS STEFFED ONE INSTRUCTION 


CURRENT PROGRAM COUNTER IS DISFLAYED ON 


CONSOLE DEVICE. 


GETHX 


STFOS 


« 
r 


a 
? 


GET ADDRESS, IF FRESENT, FROM 


BRANCH IF NO NUMBER FRESENT 


ISIS-1I1 6080/6085 


LOC 


Fic? 
FiCC 
Fico 
FIiCF 
Fil2 


Fins 
Fitid 
FiLi7 
Fing 
Filk 


FIDE 


Fitr 
Pak y 
FLEES 
FLE?- 


FLIEA 
Firt 


FiFO 
FIFS 
FiFs 
FiFé 
FiF9 
FIFE 
FiFE 


F201 
F204 


F207 
FEOA 
F20C 
F20F 
F2iz 
F213 
F2i3 
F218 
F2i9 


F21iC 
FS1E 
F221 
F223 
F226 
F228 
FE2A 
F22C 
F22E 
Fe3i 


OBJ 


D2DEF1 


CLHO6F 5 
C307F2 


7A 


FEOO 

C24CF5 
COO6FS 
C307F2 


ChS4F6 
COO6F 5S 


CU6é3F53 


CAO7F2 
FEOD 

CAQOIFS 
CS80OFO 


COS6E8rs6 
CSFOFL 


SAEAFS 
E608 
2F4F8 


SEOS 
32F4F8 


SE40 
D3Fo 
SECS 
O3FC 
SAFS8F& 
F6Co 


2AESFS8 


(7D 


(7 


MACRO ASSEMBLER» V2.0 


SOURCE STATEMENT 


SEQ 
464+ JNC 
465 MOV 
466 CFI 
467 JNZ 
448 LXI 
E 

469 MOV 
470 INX 
471 MOV 
472 CALL 
473 JMF 
474 STFOS: 

475 MOV 

OR SFACE 

476 CFI 
477 JNZ 
478 CALL 
479 JMPF 
480 STP1IS: 

481 CALL 
482 CALL 
483 STFiSA;: 

484 CALL 
483 MOV 
486 CFI 
487 JZ 
488 CPI 
489 JZ 
490 JMF 
491 STF16: 

492 CALL 
493 JMPF 
494 STP2O; 

495 LIA 
496 ANT 
497 STA 
498 LHLO 
499 MOV 
500 CFI 
Soa1 JNZ 
502 XRA 
SOG JMF 
504 STP21: 

505 CFI 
50% JNZ 
507 MVI 
508 STFP22: 

S09 STA 
510 STP23: 

Si MYVI 
Siz OUT 
ois MYI 
514 OUT 
et Bis LOA 
216 ORI 


ERROR 
Hs FSAV 


M>C 

H 

M+B 
CROUT 
STF20 


ArT 


CR 

ERROR 
CROUT 
STF20 


DISFC 
CROUT 


GETCH 
Arf 


STF20 
CR 


OF BH 
STP23 
A+ 08H 


TEMF 


Ar 40H 
TIMHI 


EXPL85 PAGE ii 


- 


“> 


“ee 


“eo “we 


we 


<> 


a 
7 


ELSE+ GET TERMINATOR 
WHICH MUST BE A SPACE 


CHANGE PC STORAGE TO NEW VALU 


CONTINUE 


WITH NO START ADDRESS: LGOK F 


GET USER INTERRUFT MASK 
SAVE INTERRUFT STATUS 


GET CURRENT INSTRUCTION 
CHECK FOR “DI" 


CHECK FOR "EI" 


SAVE NEW INTERRUF'T STATUS 


A,OCSH — 77%o 


TIMLO 
USCSR 
QCOH 


. 
? 


INIT. TIMER 


CEM jo CLk. EYECS) 


ISIS-11 8080/8085 MACRO ASSEMBLER, V2.0 EXFL85 PAGE 12 
LOC OBJ SEQ SOURCE STATEMENT 
F293 DaFa = (/2 $17 OUT CSR 
F235 C39FFS (vo) 518 JMP RSTOR + RESTORE USER REGISTERS AND GO 
! 
519 + 
§20 + THIS IS THE LOCATION BRANCHED TO BY THE TRAF VECTOR: 
S21 + AFTER ONE INSTRUCTION HAS BEEN EXECUTED. 
S22 3 
$23 STF25: 
F238 FS S24 PUSH FSW 
F239 3AF8F8 525 LDA USCSR + GET USER CSR 
F23C E63F 526 ANI 3FH 
23E Foso 527 ORI 40H 
F240 [Bra 528 OUT CSR + STOP TIMER 
F242 Fi 529 FOP FSW 
F243 22E2F8 530 SHLD LSAV 
F246 El 531 POP H 
F247 22E5F8 $32 SHLD PSAV 
F244 FS 533 FUSH FSW 
F24R Ei 534 FOF H 
FZ4C 22E0F8 535 SHLD FSAV 
F24F 210000 536 LXI H+0 
252 39 $37 DAD SP 
F253 22E7F8 538 SHLD SSAV 
F256 21EOF8 539 LXI H» BSAV+4 
F259 F9 540 SPHL 
F25A CS S4i PUSH B 
F25B DS $42 FUSH Ul 
F25C 20 543 RIM 
F25D E607 544 ANI O7H 
F25F 2iF4F8 545 LXI H» TEMP 
F262 Bé 546 GRA M 
F263 32E4F8 547 STA ISAV 
F266 3E0E 548 MVI A, UNMSK 
F268 30 549 SIM 
F269 CSEAFi 550 JMP STF1S 
551 3 
PF REEL HR E EEE EHEEHHR HEHEHE EEK HEHEHE RHEE EERE HEHEHE REEE 
HEEKEKKREKRKHKRRKE 
553 3 
554 ; FUNCTION: XCMo 
555 3 INPUTS: NONE 
556 + OUTPUTS: NONE 
557 + CALLS: GETCH» ECHO» REGDS> GETCMs ERROR» RGADR+ NMGUT 
+ CROUT» GETHX 
$58 + DESTROYS: Ar Et) CrllyHe Lo F/F/S . 
559 + DESCRIFTION: XCMD IMPLEMENTS THE REGISTER EXAMINE/CHA 
NGE COMMAND ("xX") 
560 
vGl ; 
5 $62 XCMOs 
F26C CL63F5 563 CALL GETCH + GET REGISTER IDENTIFIER 
F26F 4F 564 MOV CrA 
F270 COA4F5 565 CALL ECHO + ECHO IT 
F273 79 546 MoV A+C 


F274 FEO 207 CFI CR * CHECK FOR CARRIAGE RETURN 


iSis5-il 4080/8085 MACRO ASSEMBLER: V2.0 EXFL85 PAGE 13 


LOC OBJ SEQ SOURCE STATEMENT 
F276 C27CF2 368 JNZ XCMOS > BRANCH IF NOT A CR 
F279? CO68F6 369 CALL REGDS * ELSE - DISPLAY REGISTER CONTE 
NTS 
370 XCMOS: 
F27C 4F O71 MOV Cr+A + GET REGISTER IDENTIFIER TO C 
F270 CLASS S72 CALL RGADIR + CONVERT IDENTIFIER TO A TABLE 
ADDRESS 
F260 CS 273 PUSH BR 
F260, -E1 27 4 FOF H * PUT FOINTER INTO H&L REGISTER 
S 
F2G2 OFZO 379 MMVI Gee 4 
F264 COidkFs 276 CALL ECHG > OUTFUT ONE SFACE TO USER 
P2a7 79 377 MOV ArC 
F286 SEF4F8 278 STA TEMP + PUT SPACE IN TEMF STORAGE AS 
NELIMITER 
379 XCM1O:; 
FRG SAF4FA 280 LDA TEMF * GET TERMINATOR 
F2BE. FEZO 2&1 CFI ate 


* CHECK FOR SFACE CHARACTER 


F290 CAPEFS 582 JZ XCM15 YES - GO TG TABLE FOR LATA 


F293 FESC 583 CFI og > NO - CHECK FOR COMMA 
F295 CEBOFO Sad JNZ GETCM : NQ -~ TERMINATE ONLY ON CR 
585 XCM1i5: 
FeS8 7E 2B6 MOV Arm >; GET REGISTER DATA FROM MEMORY 
F299 57 587 ORA A + SET F/F’S 
F296 C2Z2ASF2 58s JNZ XCM1& 3; BRANCH IF NOT AT END OF TABLE 
FEST! CHOOFS S89 CALL CROUT > OUTPUT CR/LF TO CONSOLE 
F24A0 C360F6 BO JIMF GETCM ;) 60 EXIT 
S91 XCM18:; 
F2A3 ES 592 PUSH H >; -FUT FOINTER ON STACK 
F2Ad SE 593 MOV EymM 
F2AS ié6Fs 594 MYVI Tis RAMST SHR 8 >; ADDR GF SAVE LOC FROM 
TABLE 
F2A7 23 595 INX H 
F2AR 46 S96 MOV BeM + GET LENGTH FLAG FROM TABLE 
Fea? DS 597 FUSH fi] + SAVE ADDRESS OF SAVE LOCATION 
FEAA DS 598 FUSH Ci 
FEAR EL 599 FOF H + MOVE SAVE LOC INTO H&L 
F2AC CS 600 FUSH EB + SAVE LENGTH FLAG 
Fezalt 7E 601 MOV Ast + GET REGISTER DATA FROM SAVE L 
OCATION 
FAAE Che5F6 602 CALL NMOUT > TRANSMIT TQ CONSOLE 
F2Rd Fi 603 FOF FSW s GET BACK LENGET FLAG 
Pebe. FS 604 PUSH FSW > SAVE IT AGAIN (FSW NOW SET WI 
TH LENGTH FLAG) 
F2B3 67 605 DORA 4 $ SET F/F‘S 
F2E4 CABCFS 606 JZ XCM20 3 IF 8 BIT REGs NOTHING MORE TO 
DISFLAY ; 
FEB7 2B 607 DCX H 3; IF 16 BIT REG» GET LOWER 8 BI 
TS 
F2B8 7E 608 MOV AyM 
FEBS CLE5F6 AF CALL NMOUT + DISPLAY LOWER & BITS 
619 XCM20; 
F2EC GELD 611i MYVI Cr’-’ 
FREE COI4SFS G12 CALL ECHO ; USE DASH AS SEPARATOR 
FECL CH6AFS 613 CALL GETHX +; SEE IF THERE I5 A NEW VALUE F 
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LOC 


LOC 


F2C4 
F2C7 
F2C8 
F2CK 
F2CC 
F2Cu 
F2CE 
Feo1 
F202 


F203 


F204 
F207 
F208 
F2n9 


F20C 
Feo 
F2E6 
FEEL 


F2E2 


F2E5 
F2E7 
F2EA 
F2EE 
F2EC 
R2EP: 

2FG 


ORS 


OBJ 


D20CK2 


CALSF2 
70 
2B 


71 


110300 
Ei 
19 
C38BF2 


C1 
C3U4F2 


OEO3 
CUOCS8FS 
Cli 

79 
S2F3F8 
OL 

Ei 


SEQ 


SOURCE STATEMENT 


SEQ ROM INPUT 


614 


BITS 
XCM25;: 


XCM27; 


XCM30; 


a 


a a i a eT wT 


ENTERED 1) BEGI 


FALSE 


FUNCTION: 
INPUTS: 
OUTFUTS: 
CALLS: 
DESTROYS: 
DESCRIPTION: 
IC TAFE PROGRAM 


PROGRAM NUMBER ¢ 


; 
7 
RCMD 


MVI 
CALL 
POP 
MOV 
STA 
FOF 
FOP 


XCM30 
XCM30 
A:D 
TEMF 
PSW 

H 

A 
XCM25 
M+B 

H 


MC 


DT» RTABS 
H 

Oo 

XCM1LO 


AsT 
TEMP 
D 

ia) 
XCM27 


PCMD 
NONE 
NONE 


EXPL65 PAGE i4 


“Me uy ME 


“> oe 


“tone 


“> 


Me oa 


Meo 


Mh eg MD ee OP 


NO - CHECK FOR NEXT REGISTER 


ELSE ~ SAVE THE TERMINATOR 
GET BACK LENGTH FLAG 


FUT SAVE ADDR INTO H&L 


SET F/F‘S 
IF 8 BIT REGISTER - BRANCH 
SAVE UPPER 8 BITS 


FOINT TO SAVE LOC FOR LOWER & 


STORE 


SIZE OF ENTRY IN RTAB TABLE 


FOINTER INTO REG TABLE 


AUD ENTRY SIZE TO POINTER 
DO NEXT REGISTER 


GET TERMINATOR 
SAVE IN MEMORY 
CLEAR STACK 
CLEAR STACK 


GO INCREMENT REG TABLE FOINTE 


GETNMs WAITs HILO» BYTOUT» BITO 


EVERYTHING 
FPCMD) IMPLEMENTS THE STORE DATA ON MAGNET 


WHEN CALLED), 


N- 


NING ADDRESS; 


O-FF ) 


ws 


th ae MP nee 


IT EXPECTS 3 NUMBERS TO BE 


2) ENDING ADDRESS, 


KEE KE EREEEEEEKEKE LEE EEKEEEEEEEREEREREEREEEREEREERKEERERERE 
HEEEHEHKEKKKEEE 


AND 3) 


COUNT OF NUMBERS NEEDED 
GET ADDRESSES 


GET FROGRAM NO, 
AND STORE IT 
GET ENDING ADDRESS 


BEGINNING ADDRESS 
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LOC OBJ SEQ SOURCE STATEMENT 
2F1 COODFS 662 CALL HILO > CHECK FOR BACEA 
F2F4 DASCKS 663 Jc ERROR 
F2F7 3E01 664 MVI A» O1H 
F2F9 D3F0 665 OUT FORTA ; TURN RECORDER ON 
F2FB COL6F7 466 CALL WAIT >; 3 SECOND DELAY 
567 ; HHHHHHEEHGENERATE LEADER 4H HHHHE 
668 ; 
FSFE 010070 669 LXI Bs» 7QQ0QH +; LENGTH OF LEADER (15 SEC) 
670 LORI: 
F301 37 671 STC 
F302 CO69F3 672 CALL BITO 
F305 oD 673 DCR Cc 
F306 C2Z01F3 674 JNZ LORI 
F309 OS 675 DCR E 
FSA0OA& C2O1F3 576 JINZ LORI > DONE? 
F30D AF 677 XRA A 
F30E Ch69F3 478 CALL BITO + QUTFUT START BIT 
679 ; #*HeHeeH**X*RECORD RECORD NUMBER RX 84H RX 
680 ; 
F31ii SAFSF6 681 LIA FPROGNO ; GET RECORD NUMBER 
F314 4F 682 MOV C+A 
F315 CO4AFS 683 CALL BYTOUT 
684 ; 
685 ; **RECORD ENDING ADDRESS*** 
686 ; 
F318 44 687 MOV C.D >; GET UPFER BYTE 
F3i9 CO4AF3 688 CALL BYTOUT 
F3iC 4B 689 MOV CxE + GET LOWER BYTE 
F310 CO4AF3 690 CALL BYTOUT 
691 3 *#H#HH*H**X*XRECORD BEGINNING ADDRESS*#*# x 44% 4% 
692 + 
F320 4C 693 MOV C+H 
F321 CO4AF3 4594 CALL BYTQUT 
F324 4h 695 MOV CrL 
F325 CO4AFS 676 CALL BYTOUT 
697 +; 
698 ; HREKEKESZHKRECORD DATA HH RHRHE 
6997 3 
F328 4E 790 DATA: MOV C>+M > GET DATA FROM MEMORY 
F329 CO4AF3 7O1 CALL BYTOUT + OQUTFUT IT 
F32C 23 702 INX H 
F320 CLODFS 703 CALL HILO ¢ DONE? 
F330 D228F3 704 JNC LATA 
F333 4E 705 MOV CoM + GET LAST BYTE 
F334 CO4AF3 706 CALL BY TOUT 
707 3 
708 3; 
709 ; HHRHKKKXGUTPUT TRAILER 44444 HH 
710 + 
F337 0664 raga bat MVI B, 100 
7i2 TRAIL: 
F339 AF 713 XRA a 
F33A COH69FS 714 CALL BITO 
F330 05 715 DCR B 


FESE C239F3 Fis JNZ TRAIL 


ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 EXFL85 PAGE 16 
Loc OBJ SEQ SOURCE STATEMENT 
F341 AF 747 XRA A 
F342 L8FO 718 OUT FORTA + TURN RECORDER OFF 
F344 CDO6FS 719 CALL CROUT 
F347 C380F0 720 IMF GETCM 
721 + 


ZT 22 FREE HERER EKER EE EEEKHEE EEE REE EEREKE HEE KER ERE EEREEEEEREER x 
KEKEEKEKEEKEEEREE 


724 ; ‘ 
725 3 
f 726 3 FUNCTION: BYTOUT 
727 + DESCRIPTION: THIS ROUTINE OUTPUTS ONE BYTE OF DATA TO 
THE RECORDING 
728 3; DEVICE, AND A FARITY BIT. 
729? : 
730 BYTOUT: 
F34A F3 731 CI 
F346 05 732 FUSH Nn 
F3B4C 0606 733 MVI Br8 5 # OF BITS TO BE OUTFUT 
734 BYTOL: 
FS4E 79 735 MoV A+C + GET DATA TO THE ACCUMULATOR 
F34F 07 736 RLC ; BIT TO BE OUTFUT GOES IN CY 
F350 4F 737 MOV Cr+A 3 FUT IT BACK 
F351 CO6é9F3 738 CALL BITO 
F334 05 739 DCR B 
Foss C24+EF3 740 JNZ BYTOL 7 CONTINUE 
F338 797 741 MOV ArC 
F359 C600 742 ALT 0 + DONE TO SET PARITY FLAG 
F3S5E EA62F3 743 JPE BYTOZ 
FOSE*37 744 STC 
FS3SF C3S63F3 745 JMP BYTOS3 
746 BYTOZ: 
F362 AF 747 XRA A 
748 BYTOS: 
F363 CO69FS3 749 CALL BITO > OUTPUT FARITY BIT 
F366 D1 730 POP i] 
F367 FE 751 EI 
F368 C9 75 RET 
7233 } 
754 3 FUNCTION: BITO 
755 3 DESCRIPTION: WHEN CALLED, BITO OUTFUTS A FULSE TO THE 
RECORDING 
736 + DEVICE. THE WIDTH OF THE FULSE IS DETER 
MINED BY THE 
737 3 CONDITION OF THE CARRY FLAG. 
738 3 
739 3 
760 BITO: 
F369 ES 761 FUSH H 
F364 SECO 762 MYVI A+OCOH 
F36C 30 763 SIM 7 SET SO” TO "i" 
F360 DAGB2ZF3 764 Jc BITOS 
F370 2E7E 765 MVI L+1i26 ; IF CY=1+ OUTFUT I26COUNT FULS 
E 


766 BITIO: 


ISIS-11 8080/8085 MACRO 


F393 
F395 
F398 
F39A 
F39C 
Faod 


OBJ 


20 
C272F3 
3E40 
30 
2E7E 


20 
C27BF3 
C391F3 


ZES2 


20 
C284F3 
3E40 
30 


$ 2E32 


20 
C280F3 


Ei 
CF 


OEOL 
COCEFS 
SEO1 
DSFoO 
Ci 

Fr 


SER 


767 
768 
769 
770 
LE& 
772 
773 


ELT 


776 
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SOURCE STATEMENT 
DCR L 
JNZ BIT10 
MYVI A» 40H 
SIM 
MVI L»126 
BITiS5: 
NCR L 
JNZ BITi5 
JMF BIT3O 
BITOS; 
MVI L+5oO + IF CY=0, OUTPUT 50 COUNT FULS 
E 
BIT20; 
DCR L 
JNZ BIT20 
MVI A+ 40H 
SIM 
MVI L530 
BIT25; 
DCR | fe 
JNZ BIT25 
BIT3O; 
POP H 
RET 
F HERE EERE EEE HEHE HH KEKE HH EEK KEKE HE EKEKEKEKEKERRRHEEE 
KEKE EKEKKKKEEKREE 
+ FUNCTION: LOMO 
+; INPUTS: NONE 
>; OUTFUTS: NONE 
> CALLS: GETNM:WAIT:s BITINs BYTIN+ HILO» TERRORs SRET>? 
FRET 
; DESCRIPTION: LOMO IMPLEMENTS THE LOAD DATA FROM MAGNE 


TIC TAFE 

; FROGRAM., WHEN CALLED, IT EXPECTS TO SEE 
A FROGRAM 
; NUMBER (0-FF),» THEN TURNS THE TAFE DEVIC 
E ON AND SEARCHES 

; FOR THE PROGRAM WITH A CORRESPONDING NUM 

BER. WHEN FOUND 


; THE DATA IS LOADED INTO THE APPROPRIATE 
MEMORY LOCATIONS. 
LOMO: 
MVI Cot 
CALL GETNM +: GET FROGRAM NUMBER TO STACK 
MVI ArO1H 
QUT FORTA ; TURN RECORDER ON 
FOF EB 
MOV A+C > STORE PROGRAM NUMBER 
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LOC OBJ SEQ SOURCE STATEMENT 
F39E S2F5F8 814 STA FROGNO 
FSAL COL6F7 815 CALL WAIT 
816 LCMDIL: 
FSAF 9620 817 MYT By 20H ; 32 “1"S MUST BE DETECTEDC(LEAD 
ER) 
818 LCMD2: 
F3AG CDIESFS 817 CALL BITIN 
FSA LAAFFS B20 Jc LOMOS 
Foal CSA4FS B21 JMF LOMD1L > START OVER IF NOT A i 
822 LCOMO3: 
SAF GS 823 DCR EB 
FSBO @2h6F3 A24 JNZ LOMO > CONTINUE 
825 LCMI4: 
FskhS ChESFS 826 CALL BITIN 
Fake DARSFS 827 JC LOMD4 ? WAIT FOR A ZERG 
PSB: Sir 5F8 28 LXI H» FROGNO 
ron ClO7F4 829 CALL BYTIN > READ PROGNO FROM TAFE 
FSBF BE 830 CMP M # RIGHT ONE? 
Palisa CRA 3 831 JNZ LOMOL $ NO-LOOK FOR NEXT LEADER! 
r3U3 CHO7FS4 A32 CALL BYTIN + YES-GET STARTING ADDR, & LENG 
TH 
r3sC6é 3/7 833 MOV Ihr A >; MSB OF LENGTH 
Fst? Cho/7Fa 834 CALL BYTIN 
F3CA SF 835 i iheg ExA + LSE OF LENGTH 
rSCE COO7F4 B36 CALL EYTIN 
Pio vey 837 MoV He A > MSB OF BEGINNING ADDRESS 
tSsCr CLO7F4 838 CALL BYTIN 
r302 oF 839 MOV LA ¢; LSB GF BEGINNING ADDRESS 
640 LCM: 
rsts ChOoO7F 4 841 CALL BYTIN 
FSU6° 77 &42 MOV M+ A 
Polity eo 843 INX a 3; FOINT TO NEXT ADQRESS 
FSns Chonre Aa4+4 CALL HILG 
Fotie D20SFS 845 JING LOMDS ; CONTINUE 
FONE Cho7F4 846 CALL BYTIN ; GET THE LAST BYTE 
Psetr 7 847 MOV Ms A 
848 ; 
B49 3 
830 ; ALL DONE 
BS1 3 
FSES SEAO B52 MYVI As 40H 
FSE4 [SFO 8533 OUT FORTA + TURN RECORDER GFF 
r3E6 C360FO Set JUMP GETCM ? GET NEXT COMMANE 
853 ; 
B26 5 


EZ EK HHREHE RR ERE KEKE KEKE EE EE KEE EKER EE EK ER EE HH EREE EEE HER ERE 
KKK HEHE HEHEHE EH 


854 ; 

839 + 

860 5; FUNCTION: BITIN 

861 ; DESCRIPTION: BITIN LOOKS FOR ONE BIT OF INFORMATION F 


ROM THE TAFE 
862 ; DEVICE AND RETURNS THE CARRY FLAG SET AC 
CORDINGLY 
863 ; 
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LOC OBJ SEQ SOURCE STATEMENT 
864 ; 
865 BITIN: 
F3E9 D5 866 PUSH D 
867 BITINi: 
F3EA 20 868 RIM 
FSEBR 17 Bé&9 RAL 
FSEC R2EAFS3 879 JNC BITINi + WAIT FOR ONE 
FSEF 1E2A 871 MVI E+42 
872 BITIN2: 
FSFi iD 873 DCR E 
FSF2 CAFEF3 874 JZ BITING 
FSFS 20 875 RIM 
FSFO6 17 876 RAL 
F3F7 DAFIFS 877 JC BITIN2 
F3FA Di 878 FOP 0 
FSFB CSBCF6 879 JUMF SRET 
880 BITING: 
FSFE 20 861 KIM 
FSFF. 17 882 RAL 
F400 DAFEFS 883 JC BITIN+ + WAIT FOR A ZERO BEFORE RETURN 
ING 
F403 Di 884 FOF 0 
F404 C357F5 885 JMP FRET 
B86 ; 
887 ; 
888 + FUNCTION: BYTIN 
889 ; DESCRIFTION: BYTIN RETURNS ONE BYTE OF INFORMATION FR 
OM THE 
B90 ; MAGNETIC TAFE DEVICE. THE DATA IS CHECK 


ED FOR PARITY 


891 ERRORS BEFORE RETURNING. 
892 ; 
893 ; 
894 BYTIN: 
F407 C5 895 FUSH B 
F408 05 876 PUSH 0 
F409 010000 897 LXI ByO 3 CLEAR B&c 
F40C 1608 B98 MVI [+8 * LOAD CHARACTER COUNT 
899 BYTOL: 
F40E COE9FS 900 CALL BITIN 
F4iil O215F4 FOL JNC BYTO2 + IF DATA=0 DON’T INCREMENT & 
F4i4 04 902 INR B 
903 BYTO2: 
F415 79 Fad MOV Arf 
F416 17 905 RAL 
F4i7 4F 706 MOV CrA 
F418 15 907 DCR D 
F4i9 C20EF4 908 JNZ BYTOL 
F4iC 78 909 MOV As 
F4iti E6oi 910 ANI O1H 
F4iF CA2ZBF4 Fit JZ BYTOS3 > PARITY MUST BE A 1 
F422 CDESFS 912 CALL BITIN 
F425 D299F6 913 JNC TERROR 
F428 C33iF4 914 JMP BYTO4 


915 BYTOS: 
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Loc OBJ SEQ SOURCE STATEMENT 
F42B CDE9F3 916 CALL BITIN 
F42E DA99FS 917 Jc TERROR 
918 BYTO4: 
F431 79 919 MOV Arc 
F432 Di 920 POP o 
F433 Ci 924 POP B ‘ 
F434 C9 922 RET 
923 ; 
GOA FHKE HEHEHE HE EEE E HEHEHE KEKE HEHEHE ERHEE i 
KEKKKKEKKKKEKKEE 
925 ; 
926 ; 
a? 4 UTILITY ROUTINES 
928 ; 
929 ; 
930 ; 
931 3; FUNCTION SIOTST 
932 ; INPUTS: NONE 
933 ; OUTPUTS: BAUL RATE CONSTANTS (BITTIME AND HALFBIT 
) 
934 + CALLS: NOTHING 
935 + DESTROYS: EVERYTHING 
936 + DESCRIPTION: WHEN CALLE THE SYSTEM WAITS FOR THE "SF 
ACE" BAR 
937 ; ON THE CONSOLE INFUT DEVICE TO BE PRESSE 
UD, THE 
938 ; SERIAL DATA STREAM IS THEN ANALYSED TO L 
ETER- 
939 ; MINE THE BAUD RATE AND THE AF PROPRIATE T 
IME CON- 
940 3 STANTS ARE STORED IN THE SYSTEM MEMORY, 
941 + 
942 } 
943 SIOTST: 
F435 210CF8 944 LXI H» MNSTK 
F438 F9 945 SPHL 
F439 3ECO 946 MVI A, OCOH 
F43B 30 947 SIM + SET SERIAL OUT TO LOGIC 1 
948 BRID: 
F43C 20 949 RIM 
F430 B7 950 ORA A 
F43E F23CF4 951 JF BRID ; WAIT UNTIL LOGIC 1 IS SEEN ON 


SERIAL IN LINE 
952 BRI1L: 


F441 26 933 RIM ¢ GET SERIAL INFUT STATUS 
F442 R7 934 ORA A 
F443 FASIF4 935 JM BRI + WAIT FOR START BIT TO BE RECI 
: EVED 
F446 21F AFF ' 956 LXI H+ -6 + INITIALIZE A COUNT IN H&L 
957 BRIS: 
F449 1FEO4 738 MVI E+ O4H 
959 BRI4: 
F4¢R 10) 960 DCR E ¢ GENERATE A 53 MACHINE CYCLE L 


OOF 
F44C C24RF4 961 JNZ BRI+4 


ISIS-II 8086/8085 


LOC 


F44F 
F450 
F451 
F452 


F435 
F456 
F457 
F456 
F458 
F45C 
F450 
F45E 
F45F 
F460 
F461 
F462 
F443 
F464 
F465 
F468 


F46B 
F460 
F470 
F471 
F472 
F473 
F474 
F475 


F476 
F479 


OBJ 


23 
20 
B7 
F249F4 


22EBFS8 
C32CF7 


QOEOS 


COCEFS 


LE 
CDODFS 
D274F 4 


MACRO 


SEQ 


999 


1000 
1001 
1002 
1003 
1904 


1905 
L006 
1007 
1008 
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SOURCE STATEMENT 


INX H 
RIM 
ORA A 
JF BRI3 
$ H&L NOW CORRESPONDS TO INCOMMI 
NG BAUD RATE 
? 
PUSH H 
INR H 
INR L 
SHL BITTIME 
POF H ¢$ NOW COMPUTE HALFBIT TIME 
ORA A 
MOV ArH 
RAR 
MOV HA 
MOV AsL 
RAR 
MOV L+A 
INR H 
INR L 
SHLD HALFBIT +; SAVE HALFBIT TIME 
JMF: LIMTST 


3 


~~ 


$ HHH HHH HHH KKK EEE EEE KK HER HEHEHE KEKE EEE EE HEHEHE EERE EERE 
KEKE KKHEKKHEEK EH 
? 
+ FUNCTION: FCMD 
+ INPUTS: NONE 
+ OUTPUTS: NONE 
+ CALLS: GETNM> HILO» ERROR 
+ DESTROYS: A> Bs Cs DsHe Le F/F’S 
> DESCRIPTION: FCMD IMPLEMENTS THE FILL MEMORY WITH CON 
STANT COMMAND 
FCMD: 
MVI C+3 s COUNT OF NUMBERS TO BE ENTERE 
a) 
CALL GETNM + GET BEGINNING AND ENDING ADDR 
ESSES ANI DATA 
POP B + GET DATA TO C REGISTERs & REG 
ISTER = 0 
POF oO + GET ENDING ADDRESS TO D&E 
POF H + GET BEGINNING ADDRESS TO H&L 
MOV MC + STORE FIRST LOCATION 
FCMOS: 
INX H * POINT TO NEXT MEMORY LOCATION 
TO BE FILLED 
FCM10O: 
MOV MC + FUT CONSTANT IN MEMORY 
CALL HILO > CHECK FOR END OF COMMAND 
JNC FCMOS * NO - CONTINUE TO NEXT LOCATIO 
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LOC OBJ SEQ SOURCE STATEMENT 
F47C C380FO 1009 JMP GETCM ¢ ELSE - END, GET NEXT COMMAND 
1010 + 
1011 ; 
LOL2 FF RHR KHER EEE EEE HE RHR KE KEKE HEKEEKRE LEEK E KEE EKEER EERE KERR EEE KER 
HEKEKKERKEKEKREEMHEK 
1013 ; 
1014 ; 
19015 ; FUNCTION: CI 
1016 ; INPUTS: NONE 
1017 ¢ OUTPUTS: A& ~ CHARACTER FROM CONSOLE 
1018 ; CALLS: DELAY 
1019 + DESTROYS: AsF/F/S 
1020 ; DESCRIPTION: WHEN CALLED, CI WAITS UNTIL A CHARACTER 
HAS BEEN 
1021 ; ENTERED AT THE CONSOLE AND RETURNS THE C 
HARACTER: 
1022 ; VIA THE A REGISTER: TO THE CALLING ROUTI 
NE, 
1023 ; MAY BE CALLED BY THE USER VIA A JUMP TAB 
LE IN RAM. 
1024 ; 
1025 ; 
1026 CI: 
F47F ES 1027 PUSH H 
F480 FS 1028 FUSH FSW 
F481 21FBF8 1029 LXI H+ DIN 
F484 7E 1030 MOV AyM 
F485 23 1031 INX H 
F486 66 1032 MOV H»M 
F487 4&F 1033 MOV LsA 
F488 Fi 1034 POF FSW 
F489 E9 1035 PCHL 
1034 CIN: 
F484 FS 1037 Ol 
F48B CS 1038 FUSH B 
F48C 0609 1039 MYT B+BITSI + NUMBER OF BRITS TO BE READ 
1040 CIi: 
F48E 20 1041 RIM 
F48F B7 1042 ORA A 
F490 FASBEF4S 1043 JM CIi ; WAIT FOR START BIT TO BEGIN 
F493 ZAERFS 1044 LHLO HALFBIT 
1045 Ci2: 
F496 20) 1046 DCR L 
F497 C296F4 1047 JINZ CI2 
F4A9A 25 1048 DCR H 
F49R C296F4 1049 JNZ CI2 
1050 CI3: 
F49E 2AESFS 10541 LHLED BITTIME + WAIT ONE BIT TIME 
1052 CI4: 
F4Ai1 20 1033 DCR L 
F4A2 C2AIF4 1054 JNZ Ci4 
F4A5 25 1035 DCR H 
F4A6 C2AiF4 1056 JNZ CI4 
F4A9 26 1057 RIM +; CHECK SERIAL INFUT LEVEL (i O 


RQ) 
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LOC 


F4AA 
F4AB 
F4AC 
F4AF 
F4H0 
F4Bi 
F4B2 
F4B3 


F4BR6 


F457 
F488 
F4B9 
F4BA 


F4RB 
F4B0 
FSBF 
F4C2 
F4C4 
F4C5 


OBJ 


17 
OS 
CAB6F4 
79 
iF 
4F 
00 
C39EF4 


79 


DEF S& 
E610 
CABRF +4 
DBFA 
2F 

C9 


SEQ 


1058 
1059 
1060 
19061 
19062 
1063 
1064 
1065 
1066 
1067 


1968 
1069 
1070 
1071 
1072 
1973 


1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 


1082 


10683 
1084 
1085 
1086 
1087 
1088 
1089 
1990 
1091 
1092 
1093 
1094 
1095 
19096 


1097 
1098 
1099 
1100 


1105 


SOURCE STATEMENT 


RAL 

DCR B $ KEEP COUNT 

JZ CI5 

MOV ArC 

RAR 

MOV CrA + SAVE BIT IN C REGISTER 

NOP 

JMP C13 + RETURN FOR NEXT BIT 
CIS: 

MOV A»sC 3 LEAVE CHARACTER IN THE A REGI 
STER 

POF B 

POP H 

Ed 

RET 
FEHR EE EH KEK KEE EE KEKE KERR KEKE EEE EEE EER ERR HERE RNE 
HH HK HEHEHE HHH EHH 


FUNCTION: PIN 

INFUTS: NONE 

OUTPUTS: A - CHARACTER FROM FARALLEL INFUT FORT 
CALLS: NOTHING 

DESTROYS: ArF/F/S 


DESCRIPTION: PIN IS A PARALLEL INFUT ROUTINE WHICH CA 
BE USED IN 


ee MP ee. MP te SO ee: MO NS 


FLACE OF THE CONSOLE INFUT ROUTINE BY FL 
ACING ITS ADDRESS 
IN THE INFUT CHANNEL LOCATION, "DIN", 


FIN: 
IN CSR 
ANI LOH 
JZ FIN + WAIT TILL BUFFER FULL SIGNAL 
IN PRLIN > GET THE DATA TO A 
CMA ; INFUT DATA MUST BE INVERTED 
RET 


F ERK HEEEKEE REE KEKE EK EEEEREHEE EEE EREEER EER EEEKEREEEREKERE 
KEKKEKKKEEKEEEKE 


FUNCTION: POUT 

INFUTS: C - CHARACTER TO BE OUTPUT 
OUTPUTS: C - CHARACTER OUTFUT 
CALLS: NOTHING 

DESTROYS: AsF/F‘’S 


a eT i a, | ial iad 


DESCRIPTION: POUT IS A PARALLEL OUTPUT ROUTINE WHICH 
CAN BE USED IN 

; PLACE OF THE CONSOLE OUTPUT BY FLACING I 
TS ADDRESS IN 

; THE OUTPUT CHANNEL LOCATION, "“DOUT",. 
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LOC OBJ SEQ SOURCE STATEMENT 
1106 + 
1107 POUT: 
F4C6 DBFS 1108 IN CSR + GET STATUS REGISTER OF 8155 
F4C8 E602 1109 ANI O2H 
F4ACA C2C6F4 1110 JNZ POUT $ WAIT TILL BUFFER EMPTY 
F4CLh 79 Litt MOV A,C 3 
FACE 2F 1112 CMA # INVERT DATA TO COMPENSATE FOR 
BUFFERS(74LS04) 
F4CF DSF9 1113 OUT FRLOUT + OQUTPUT THE DATA r 
F4pi C9? 1114 RET 
1115 ¢ 
1116 + 
LLLZ § KHER EK EKER KKK KKK HEHEHE EEE HEHEHE KEKE KEEKKEEKERER 
HEKHHEKEKKKKEKERE 
1118 ; 
1119 3 
14120 + FUNCTION: CO/BCO 
1121 + INPUTS: C - CHARACTER TO BE QUTPUT TO CONSOLE(CO 
) 
1122 ; B - . = " . " (BC 
0) 
1123 + OUTPUTS: C ~ CHARACTER OUTPUT (CO) 
1124 ; ArB ~ » # (BCO) 
1125 + CALLS: NOTHING 
1126 +; DESTROYS: A» F/F’S 
1127 +} DESCRIPTION: CO SENDS ITS INPUT» THE CHARACTER IN THE 
C REGISTER, 
1128 + TO THE CONSOLE DEVICE. WHILE BCO SENDS T 
HE CHARACTER 
1129 ; IN THE B REGISTER. 
1130 ; 
1131 ; 
11S 2 
1133 BCO: 
F402 CS 1134 FUSH E $ SAVE THE B&C REGISTERS 
F403 48 1135 MOV CB + PUT THE OUTPUT DATA IN C 
F404 CODAF4 1136 CALL co ¢ AND OUTPUT IT 
F407 Ci 1137 POP B 
F408 78 1138 MOV A+B + LEAVE THE CHARACTER IN A 
F409 C9 1139 RET 
1140 ; 
lidi ; 
1142 CO: 
F4DA ES 1143 FUSH H 
F40B FS 1144 FUSH PSW 
F40C 2iFOF8 1145 LXI H» DOUT 
F40F 7E 1146 MOV A»M 
F4E0O 23 1147 INX H ' : 
F4E1 66 1148 Mav Hs M 
F4E2 OF 1149 ~ MOV Ls A 
F4E3 Fil 1150 POP FSW 
F4E4 E9 1151 PCHL 
1152 COUT: 
F4E5 F3 1153 OI 


F4E6 CS 1154 FUSH EB >; SAVE THE B&C REGISTERS 
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LOC OBJ SEQ SOURCE STATEMENT 
F4E7 060B 1155 MVI B+BITSO + SET THE NUMBER OF BITS TO BE 
OUTFUT 
F4E9 AF 11546 XRA A + CLEAR CARRY 
1157 COi: 
F4EA 3E8O 1158 MVI A: 8OH 
F4EC iF 1159 RAR 
F4E0 3F 1160 CMC 
F4EE 30 1161 SIM * OUTPUT DATA BIT 
F4+EF 2AE9F8 1162 LHLD BITTIME 
1163 CO2: 
F4F2 20) 1164 LCR L + TIME OUT BAUD RATE 
F4F3 C2F2F4 1165 JNZ co2 
F4Fo6 25 1166 BCR H 
F4F7 C2F2F4 1167 JNZ coz 
F4FA 37 1168 STc > SET UP FOR STOP BIT 
F4FE 79 1169 MOV AC + GET CHARACTER TO BE TRANSMITT 
EG 
F4FC iF 1170 RAR 
F4FDR ¢+F 14171 MOV CrA + STORE ROTATED DATA 
F4FE O58 bie as DCR EB 
F4FF C2EAF4 1173 JNZ co1 > OUTPUT NEXT BIT 
FSO? CL 1174 POF B 
F503 EL 1175 FOP H +; ALL DONE 
F504 FB 1176 EI 
F505 C9 1177 RET 
1178 ; 
1179 3 
1180 ; 
1181 ; 
1182 ; 
LL BS fF HER HHE KEE EEE ER EEE EE EKER HEE EEE RHEE KKK KER EREKEER 
KEEKEKKEKKKKREKRKEKE 
1184 ; 
1185 ; 
1186 +; FUNCTION: CROUT 
1187 +; INPUTS: NONE 
1188 +; OUTFUTS: NONE 
1189 ; CALLS: ECHO 
1190 +; DESTROYS: AsB+CoF/F’S 
1191 ; DESCRIPTION: CROUT SENDS A CARRIAGE RETURN (AND HENCE 
A LINE FEED) 
1192 ; TO THE CONSOLE, 
1193 ; 
1194 ; 
1195 CROUT;: 
F506 OEOD 1196 MVI C;CR + PLACE THE CARRIAGE RETURN CHA 
RACTER IN THE 
1197 + CC REGISTER 
F308 COL4E5S 1198 CALL ECHO ? ECHO ADDS THE LINE FEED QUTFU 
r .; 
FEOR CF 1199 RET 
1200 ; 
1201 ; 
1202 ; 
? 


1203 HEE KEKE KEKE EK EEK EK HEE KEE EEKE EERE EEE ERE EEREEEEEREEEEREREEER 
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LOC OBJ SEQ SOURCE STATEMENT 
LOC OBJ SEQ KHER HEHEHE HEHE 
1204 3 
1203 3; FUNCTION: ECHO - ECHOB 
1206 + INPUTS: C - CHARACTER TO ECHO TO CONSOLE 
1207 ; ‘ B - CHARACTER TO BE ECHOED (ECHOB ONLY) 
1208 +; OUTPUTS: C - CHARACTER ECHOED EXCEPT FOR CARRIAGE « 
RETURN 
1209 ; A:>B - CHARACTER ECHOED (ECHOB ONLY) 
1210 ; CALLS: co . 
1211 + DESTROYS: ArByF/F’S 


DESCRIPTION: ECHO TAKES THE CHARACTER INFUT VIA THE C 
REGISTER AND 
1213 +; SENDS THE CHARACTER TO THE CONSOLE. AC 
ARRIAGE RETURN 


1212 


1214 3 IS ECHOED AS A CR/LF ANI! AN ESCAPE CHARA 
CTER IS ECHOED 
1215 } AS A. ECHOB PROVIDES OUTPUT COMMUNICA 
TIONS FOR PRO- 
1216 ; GRAMS WHICH USE THE & REGISTER FOR COMMU 
NICATIONS, 
1217 + 
1218 ECHOB: 
F50C CS 1219 PUSH B + SAVE THE BRC REGISTERS 
F500 48 1220 MOV CrB 
FSOE CL14F5 1221 CALL ECHO $ OUTPUT THE CHARACTER 
F511 Ci 1222 POP B 
F512 78 1223 MOV ArB ; RESTORE REGISTERS AND LEAVE 0 
UTPUT DATA IN A 
F513 C9 1224 RET 
1225 ; 
1226 ; 
1227 3 
1228 ECHO: 
F514 C5 1229 FUSH B 
F515 41 1230 MOV BC 
F516 3EiB 1231 MVI A+ ESC 
F518 BS 1232 CMP B 
F519 CA25F5 1233 Jz ECHO4 
F5iC 3E0D 1234 MVI ACR 
F5iE Ba 1235 CMF B 
F51F CASCF5 1236 Jz ECHOS 
F522 C327F5 1237 MP ECHOS 
1238 ECHO4: . 
F525 0F24 1239 MVI Cr’ ; 
1240 ECHOS: 
F527 CODAF4 1241 CALL co 
F52A 3AF9FS 1242 LDA LCOUNT 
F52D 47 1243 MOV Br A 
FS2E 04 i244 INR B 
F52F 3AFAF8 1245 LDA LLIMIT 
F532 BS 1246 CMF: Es 
F533 DASCFS 1247 R fe ECHO6 
F536 78 1248 MOV Ay B 
F537 32F9F8 1249 STA LCOUNT 


F33A Ci 1250 FOF EB 
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LOC OBJ SEQ SOURCE STATEMENT 
F53B C9 1251 RET 
1252 ECHO6é: 
F53C AF 1253 XRA A 
F53D 32F9F8 1254 STA LCOUNT 
F540 OEOD 1255 MVI C,CR 
Fo42 CDODAF4 1256 CALL CO 
F545 OQEOA 1257 MVI C> LF 
F347 CODAF4 1258 CALL co 
FS4A Cl 1259 FOF B 
FS4B C9 1260 RET 
1261 ; 
L2EZ § ERK KEEHKEE EE EEE EEE EERE EERE 
HER KEEREREKEREHRE 
1263 ; 
1264 ; 
1265 +; FUNCTION: ERROR 
1266 + INPUTS: NONE 
1267 + OUTPUTS: NONE 
1268 + CALLS: ECHO, CROUT; GETCM 
1269 +; DESTROYS: Ar BrCrF/F’S 
1270 + DESCRIPTION: ERROR PRINTS AN ASTERISK AT THE CONSOLE 
FOLLOWED 
bard 4 BY A CARRIAGE RETURN - LINE FEED AND THE 
N RETURNS 
1272 ; CONTROL TO THE COMMAND RECOGNIZER. 
1273 ; 
1274 ERROR: 
FS4C OE2ZA 1275 MVI Cr’ #? 
FS4E COI4F5 1276 CALL ECHO ¢ SEND THE CHARACTER TO THE CON 
SOLE 
F551 CDO6F5 L277 CALL CROUT + SEND A CR/LF SEQUENCE 
F334 C3S80FO 1278 JMP GETCM * GO TO COMMAND RECOGNIZING ROU 
TINE 
1279 ; 
1280 ; 
L281 § HHHHH KEKE HEE HH EEE KER ERE EEE KEE EERE ERE KER EERE EHH 
HEKKEKEEEKKHERES 
12682 ; 
1283 ; 
1284 +; FUNCTION: FRET 
1285 + INPUT: NONE 
1286 +; OUTPUT: CARRY FLAG ALWAYS 0 
1287 +; CALLS: NOTHING 
1288 +; DESTROYS: CARRY FLAG 


1289 + DESCRIPTION: FRET IS JUMPED TO BY ANY ROUTINE THAT WI 
SHES TO INDICATE 


1290 + A FAILURE ON RETURN. FRET CLEARS THE CA 
RRY FLAG DE- 

1291 } NOTING FAILURE THEN RETURNS TO THE CALLI 
NG ROUTINE 

L292) 5 

1293 ; 

1294 FRET: 

F357 37 1295 STC * SET CARRY TRUE 


F558 3F 1296 CMC > COMPLEMENT CARRY 
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LOC OBJ SEQ SOURCE STATEMENT 
F359 C9 1297 RET 
1298 ; 
1299 ; 
LBD Ff HHH HEHEHE HEHEHE KERR HEHEHE EEE EEE HEHEHE EHH EEE HEHEHE KR KE REE 
HEEKKKEKKHEKREHEE 
1301 + = 
1302 3 
1303 ; FUNCTION: CNVBN 
1304 ; INPUTS: C - ASCII/HEX CHARACTER 5 
1305 +; OUTPUTS: A - 0 TO F HEX (FOUR BITS) 
1306 ; CALLS: NOTHING 
1307 +} DESTROYS: A»rF/F’S 
1308 +; DESCRIFTION: CNVBN CONVERTS THE ASCII CHARACTER IN TH 
E C REGISTER 
1309 ; TO ITS CORRESPONDING BINARY VALUE, CNVE 
N DOES NOT CHECK 
1310 ; THE VALIDITY OF THE INPUT. 
1311 3 
1312 ; 
1313 CNVBN: 
FSS34 79 1314 MOY AsC 
FS5B 0630 1315 Sur ‘oO! + SUBTRACT ASCII ZERO FROM ARGU 
MENT 
FE5D FEOA 1316 CPI 10 * TEST FOR RESULT = 0 TO 9 
FSSF F8 1317 RM + YES - RETURN 
F560 D607 1318 Sur 7 + ELSE RESULT IS BETWEEN i7 ANI 
23 DECIMAL 
F562 C9 1319 RET * RETURN AFTER SUBTRACTING 7 
1320 ; 
1321 ; 


LEB2 FERRE EERE EEE HEHEHE HEHEHE HEE EEE HEHEHE EEE EEK EEE EEE KKH EHEH 
KEKE EEHEKEEH EEE 


1323 ; 
1324 ; 
1325 3 FUNCTION: GETCH 
1326 +; INPUTS: NONE 
1327 + OUTFUTS: C - NEXT CHARACTER FROM INFUT 
1328 + CALLS: it 
1329 ; DESTROYS: Ar Ce F/F‘S 
1330 +; DESCRIPTION: GETCH RETURNS THE NEXT CHARACTER IN THE 
INPUT STREAM TO 
1331 ; THE CALLING PROGRAM, 
1332 ; 
1333 ; 
1334 GETCH: 
F363 CO7FF4 1335 CALL CI 5 GET CHARACTER 
F366 E67F 1336 ANI PRTYO + STRIP PARITY BIT , 
F568 4F 1337 MOV Cr+AéA ; PUT VALUE IN THE C REGISTER A 
NO RETURN 
F369 C9 1338 RET 
1339 ; 
1340 ; 


LB41 FH HKEHHEE EHR HERE EH HE HEE EEE EEE EKER EE EEE RHEE EEK EHEHE HHH HHEE 
KEKE KEKRKEKKKKEREKRE 
1342 ; 
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LOC 


F36A 
F56B 
FS6E 


F370 
F373 
F374 
F377 


\FS7A 
F370 


FS7E 
FS7F 
F580 
F581 
F582 
F583 


F586 


F589 


F58c 
FS6F 


OBJ 


ES 
210000 
LEOO 


CO63FS 
4F 

COL4F3 
CHOSF7 


D289F 5 
S41 


ES 
Ci 
EL 
75 
B7 
C2BCFS 


CAS7F3 


COESFS6 


024CF5 
COISAFS 


SEQ SOURCE ST 
1343 ; 
1344 + FUNCTION: 
1345 + INPUTS: 
1346 + OUTPUTS: 
1347 ; 
ER 
1348 ; 
IMITER 
1349 ; 
LIMITER 
1350 + CALLS: 
1351 + DESTROYS: 
1952 ; DESCRIPTION: 
M THE INFUT AND 
1353 3 
NTEGER. IF 
1354 ; 
LAST 4 ARE USED 
1355 ; 


LIMITER IS EN- 
13564 3 
ED AS AN OUTPUT 


1357 ; 
T HEX DIGITS OR 
1358 ; 
1359 ; 
1360 ; 
1361 GETHX: 
1362 PUSH 
1363 LXI 
1364 MVI 
1365 GHXO5: 
13646 CALL 
1367 MOV 
1368 CALL 
1349 CALL 
1370 FALSE 
1371+ JNC 
1372 MOV 
0 FOR RETURN 
1373 PUSH 
1374 FOF 
1375 POP 
1376 MOV 
1377 ORA 
1378 JNZ 
» CY = 1 
1379 JZ 
1380 GHX10:; 
1381 CALL 
Lit} HEX DIGIT 
1382 FALSE 
1383+ JNC 
1384 CALL 


LUE 
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ATEMENT 

GETHX 

NONE 

BRC - 16 BIT INTEGER 

[D - CHARACTER WHICH TERMINATED THE INTEG 
CARRY - 1 IF THE FIRST CHARACTER NOT DEL 


O IF THE FIRST CHARACTER IS A DE 
GETCH»+ ECHO: VALDOL» VALDG» CNVBN>s ERROR 
ArBsCe De Es F/F’S 
GETHX ACCEPTS A STRING OF HEX DIGITS FRO 
RETURNS THERE VALUE AS A 16 BIT BINARY I 
MORE THAN 4 DIGITS ARE ENTERED» ONLY THE 
THE NUMBER IS TERMINATED WHEN A VALID DE 
COUNTERED., THE DELIMITER IS ALSO RETURN 
OF THE FUNCTION. ILLEGAL CHARACTERS (NO 


DELIMITERS) CAUSE AN ERROR OUTFUT, 


H + SAVE H&L 

H+ + CLEAR RESULT REGISTERS 
E+90 + CLEAR DIGIT FLAG 
GETCH > GET A CHARACTER 

CA 


ECHO ¢ OUTPUT TO CONSOLE 

VALDL * CHECK FOR DELIMITER 

GHX10 * NO - BRANCH 

GHX10 

DC * YES - DONE» PUT DELIMITER IN 
H 

B * RESULT TO B&C REGISTERS 

H * RESTORE H&L REGISTERS 

ArE s GET FLAG 

A i SET F*E'S 

SRET + IF FLAG NOT ZERO - FLAG FOUND 
FRET * FIRST CHARACTER WAS DELIMITER 
VALDG + IF NOT DELIMITER CHECK FOR VA 
ERROR * ERROR IF NOT VALID DIGIT 
ERROR 

CNVEBN + ELSE CONVERT TO ITS BINARY VA 
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LOC OBJ SEQ SOURCE STATEMENT 
F592 1EFF 1385 MVI E,OFFH + SET DIGIT FLAG NON-O 
F594 29 1386 DAD H + #2 
F595 29 1387 DIAL H + #4 
F596 29 1388 “DAL H + #8 
F597 29 1389 DAD H + #16 
F598 0600 1390 MVI Bro + CLEAR UPPER HALF OF BRC PAIR « 
FS9A 4F 1391 MOV CrA + BINARY VALUE OF CHARACTER INT 
6.5 
FS9B 09 1392 DAD B + ADD THIS VALUE TO THE PARTIAL « 
RESULT 
F59C C370F5 1393 IMP GHXOS + GET NEXT CHARACTER 
1394 ; 
1395 ; 
1396 } 
1397 + FUNCTION: RSTOR 
1398 + INPUTS: NONE 
1399 + OUTPUTS: NONE 
1400 + CALLS: NOTHING 
140i + DESCRIPTION: RSTOR RESTORES ALL CPU REGISTERS, FLIF-FL 
OFS 
1402 + INTERRUPT STATUS: INTERUF'T MASK STACK FO 
INTER 
1403 +; FROM THEIR RESPECTIVE SAVE LOCATIONS IN 
1404 ; MEMORY. 
1405 ; NOTE - BY RESTORING THE PROGRAM COUNTER: 
RSTOR 
1406 ; EFFECTIVELY TRANSFERS CONTROL OF THE CFU 
To 
1407 + THE USERS PROGRAM, 
1408 ; 
1409 ; 
1410 ; 
1411 RSTOR: 
FS9F 3AE4F8 (/2) 1412 LDA ISAV + GET THE USER INTERUPT MASK 
F5A2 F6i@ (7) 1413 ORI 18H + ENABLE INTERRUFT MASK SETTING 
AND 
i4i4 ; RESET THE IV3C FLIP-FLOP. 
F5A4 30 () 1415 SIM 
FSAS SAE4F8 (/5) 1416 LDA ISAV + GET USER INTERRUPT MASK 
F548 E608 (5) 1417 ANI 08H $ SHOULD USER INTERRUPTS BE ENA 
cia BLED? 
F5AA CABLFS ( 7/7 1418 JZ RSROS + NO - LEAVE INTERRUPTS DISABLE 
Ci 
FSALl FRB (9) 1419 EI + YES ENABLE INTERRUPTS ‘ 
FSAE C3BSF5 (/0/ 1420 JMP RSR1O 
1421 RSROS: 
YF5B1 37 (fF 1422 STC-5e7 CAKLKY + DUMMY INST, FOR KBD ROUTINE, 
F5B2 D2RSF5 /7),) 1423 JNC RSR10 
"1424 RSRLO: 
SFSBS 21DCF8 (/¢) 1425 LXI H»MNSTK + SET MONITOR STACK POINTER TO 
1426 ; START OF MONITOR STACK 
F5B8 F9 (C) 1427 SPHL 
FSBR9 Li Gv) 1428 POP o + RESTORE REGISTERS 
FSBA C1 (ro) 1429 FOP B 


FSBB Fi (re) 1430 POP FSW 


ISIS-II 8080/8085 MACRO 


LOC 


FBC 
FSBF 
FSCO 


FSC3 
FSC4 
F3C7 


FODE 
FSS 
FEDS 


FSO? : 


OBJ 


ZAE7FSB “/o) 
(6) 
(fb) 
{7 7) 


ppy 
1/6) 


ES, 
ZAESFS8 


ES 


ZAELFS 
Cc? 


2EO3 


COGAFS 


O24CF 5 
C5 
20 


CAESFS 


7A 


\ 
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SEQ SOURCE STATEMENT 

1431 LHLD SSAV + RESTORE USER STACK POINTER 

1432 SPHL 

1433 LHLD PSAV * PUT PROGRAM COUNTER ON TOF OF 
STACK 

1434 FUSH H 

1435 LHLO LSAV * RESTORE H&L REGISTERS 

1436 RET * JUMP TO USER PROGRAM 

1437 ; 

1438 ; 

1439 ; 

LFA FRE HHH HEHEHE EERE EERE EE EEE KEE KERR E RE HEEHE EEE EERE EEE EKER EER 
ERE SKEERKEREERE 

1441 ; 

1442; 

1443 + FUNCTION: GETNM 

i444 3 INPUTS: C - COUNT OF NUMBERS TO FIND IN INFUT ST 
REAM 

i445 ; OQUTFUTS: TOF OF STACK - NUMBERS FOUND IN REVERSE 
ORDER (LAST ON TOP) 

1446 + CALLS; GETHX+ HILO» ERROR 

1447 +; DESTROYS: As Be Cols Ev He Le F/FSS 

1446 + DESCRIFTION: GETNM FINDS A SPECIFIED COUNT OF NUMBERS 

(FROM 1 TO 3) 

1449 ; IN THE INFUT STREAM AND RETURNS THEIR VA 
LUES ON THE STACK. 

1450 3 IF TWO OR MORE NUMBERS ARE REQUESTED, TH 
EN THE FIRST ; 

i451 3 MUST BE LESS THAN OR EQUAL TO THE SECOND 
» OR THEY WILL BE 

1432 ; SET EQUAL. THE LAST NUMBER MUST BE TERM 
INATED WITH A 

i453 ; CARRIAGE RETURN OR AN ERROR INDICATION W 
ILL RESULT, 

1454 3 

1455 ; 

1456 CETNM: 

1457 MVI L+3 ¢ PUT MAXIMUM COUNT INTO L 

1458 MOV Arf * GET ACTUAL COUNT 

1459 ANI 3 * FORCE TO MAXIMUM OF 3 

1460 RZ * IF COUNT O, RETURN 

1461 MOV HA +; ELSEsFUT ACTUAL COUNT INTO 4 

1462 GNMOS: 

1463 CALL - GETHX * GET A NUMBER FROM INFUT STREA 
M 

1464 FALSE ERROR > IF NOT THERE - TOO FEW NUMBER 
5 

1465+ JNC ERROR 

1466 FUSH B + ELSE - SAVE NUMBER ON STACK 

1467 DCR L + CECREMENT MAXIMUM ARGUMENT CO 
UNT 

1468 DCR H * DECREMENT ACTUAL ARGUMENT COU 
NT 

1469 Jz GNM1LO * BRANCH IF NO MORE NUMBERS WAN 
TED 

1470 MDV Ard $ ELSE - GET TERMINATOR TO A 


4 


ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 EXFPL85 PAGE B32 
LOC OBJ SEQ SOURCE STATEMENT 
Fsoc FEOL 1471 CFI CR + SEE IF CARRIAGE RETURN 
FSDE CA4CFS 1472 JZ ERROR ¢ IF NOTs IMPROFER TERMINATOR 
FSEi C3CFF5 1473 JMP GNMOS + ELSEs PROCESS NEXT NUMBER 
1474 GNM1O; 
FSE4 7A 1475 MOV 4,0 3 WHEN COUNT=0, CHECK LAST TERM 
INATOR ; 
FS5ES FEOL 1476 CFI CR 
FSE?7 C24CF5 1477 JNZ ERROR >; ERROR IF NOT CARRIAGE RETURN 
FSEA OIF FFF 1478 LXI B, OF FFFH 5; HRL GETS LARGEST NUMEs 
ER 
FSED 70 1479 MOV ArL 3 GET WHATS LEFT OF MAX ARGUMEN 
T COUNT 
FSEE E7 1480 ORA A + CHECK FOR 0 
FSEF CAF7FS5 1481 JZ GNM20 s IF YES+ THREE NUMBERS WERE IN 
PUT 
1482 CNM1L5: 
FSF2 C5 1483 PUSH B + IF NOT FILL REMAINING ARGUMEN 
TS WITH OFFFFH 
FSF3 20D 1484 DCR L 
FSF4 C2r2F5 1485 JNZ GNM15 
1486 GNM20: 
FSF7 Cl 1487 POF H + GET ARGUMENTS OUT 
FSF@ [ii 1488 POP im 
F3F9 EL 1489 POP H 
FSFA CLODFS 1490 CALL HILO >; SEE IF FIRST >= SECOND 
1491 FALSE GNM25 ; NO - BRANCH 
FSFO G202Fé6 1492+ JNC GNM25 
F600 54 1493 MOV D+H 
Fé6éo1i 5D 1494 MOV EsL >; YES - MAKE SECOND EQUAL TO FI 
RST 
1495 GNM25: 
F602 E3 1496 XTHL >; PUT FIRST NO. ON STACK AND GE 
T RETURN ADDRESS 
Feos m5 1497 PUSH a] +; FUT SECOND NUMBER ON STACK 
F604 C5 1498 FUSH B ; PUT THIRD NUMBER ON STACK 
F6OS ES 1499 FUSH H 7 FUT RETURN ADDRESS ON STACK 
1500 GNM30; 
F606 30 1501 DCR A >; DECREMENT RESIDUAL COUNT 
F607 FB 1502 RM $s IF NEGATIVE: PROPER RESULTS G 
N STACK 
F608 Ed 1503 POF H + ELSE — GET RETURN ALDIDRESS 
F509 ES 1504 XTHL > REFLACE TOP RESULT WITH RETUR 
N ADDRESS 
F60A C3BO06F6 1505 JMP GNM30 $s TRY AGAIN 4 
1506 ; 
1507 ; 


L508 Ff RHEE HEHEHE EEE HEHEHE EH HEE KEKE EE EEE ER EE EEE KEE EE EEE KEE ERERERE 
HEKEKKEKEKEKEREEE 


1509 ; 

1510 ; 

1511 ;3 FUNCTION: HILO 

15i2 + INFUTS: DRE - 16 BIT INTEGER 
1513 ; H&L - 16 BIT INTEGER 
1514 +; QOUTFUTS: CARRY ~ © IF H&L‘ DRE 
1515 3 1 IF H&L>=DRE 


ISIS-I1I 8080/8085 MACRO 


LOC 


F62E 


FO62F 
F630 


F631 


OBJ 


BS 
CAZEFS6 


78 
Ci 


C3BCF6é 


SEQ 
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SOURCE STATEMENT 


CALLS: NOTHING 

DESTROYS: FLFCS 

* DESCRIPTION: HILO COMPARES THE 2 16 BIT INTEGERS IN H 
&L AND D&E, 


> “MP Nee 


THE CARRY BIT IS SET AS A RESULT OF THE 


COMPARISON, 
$ 
HILO: 

PUSH B + SAVE BRC 

MOV BrA ¢ SAVE A IN BH REGISTER 

FUSH H * SAVE H&L 

MOV AyD + CHECK FOR 9000 IN DRE 

ORA E 

JZ HILOS > YES - AUTOMATICALLY DONE 

INX H * ELSE - INCREMENT H&L 

MOV A+H : TEST FOR © RESULTS AFTER INCR 
EMENTING 

ORA L 

JZ HILOS + YES - H&L MUST HAVE CONTAINED 
FFFF 

FOF H * NO - RESTORE ORIGINAL H&L 

PUSH 0 + SAVE DRE 

MVI AsOFFH + WANT TO TAKE 2’°S COMPLEMENT O 
F D&E 

XRA 0 

MOV D+A 

MVI A» OF FH 

XRA E 

MOV EsA 

INX 0 + COMPLETES 2°S COMPLEMENT OF OT 
&E TO DRE 

MOV ArL 

ADL E +; AUD H&L AND DRE 

MOV AsH 

ADC o + THIS OFERATION SETS CARRY FRO 
FERLY 

FOF ti + RESTORE ORIGINAL D&E CONTENTS 

MOV A+B +s RESTORE ORIGINAL CONTENTS OF 
A 

FOP B + RESTORE ORIGINAL CONTENTS OF 
B&C 

RET 
HILOS:; 

POP H ; IF H&L = FFFFs THEN CARRY MUS 
T BE SET TO i 

MOV A+B 

FOP B + RESTORE ORIGINAL CONTENTS GF 
BRC 

JMF SRET $ SET CARRY AND RETURN 
F RHE KHE KEKE EKEEKKEEHE EERE EEE REE KEKE EE EEE ERE KEREE EERE RREE 


HEEEEKERKEKEKKEEE 


ry 
7 


ISIS-If 8680/8085 MACRO 


LOC 


F634 
F635 
F636 
F629 
FOSA 
F630) 
F63E 
F63F 
F642 
F443 
Fo44 


Fos 
FAa46 
F647 
F648 
Fo4? 
FéasaA 


Fo4h 
Fé4c 
FOSE 
FOoL 
F654 
FOSS 
FeS7 


ORJ 


Fo 
ES 
SLESFS 
7E 
CU45F6 
2B 
7E 
COU45F 6 


ES 
FS 
OF 
OF 
OF 
OF 


E60F 
af 

CLeOre 
CHidFS 


SEQ 


1389 
1560 
1361 
15462 
1563 
1564 


1565 
1566 
1567 
1368 
1369 
13706 
1571 
1372 
1373 
15374 
1575 
1576 
1577 
1378 
1379 
1380 


1381 
1582 
1583 
1584 
1585 
1586 

1587 
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SOURCE STATEMENT 


§ FUNCTION: DISFC 

* INPUTS: NONE 

* OUTFUTS: NONE 

+ CALLS: NMOUT 

* DESTROYS: 

* DESCRIPTION: DISFC DISPLAYS THE CURRENT USER FROGRAM 
COUNTER AT . 
; THE CURRENT CONSOLE DEVICE. 

[ 


IISFC: 
PUSH FSW 
FUSH H 
LXI H+PSAV4+1 
MOY ArM 
CALL NMOUT 
DIC Xx H 
MOV A>M 
CALL NMOUT 
POF H 
FOF FSW 
RET 


F MEEKER HEE EEE HEH HEE HEHEHE HEE EERE KEE EEE EEE ERE ERER EERE HEEEEE 
EREKEEKEKERKEKEEEE 


7 ‘ 

; FUNCTION: NMOUT 

- INPUTS: A - 8 BIT INTEGER 
? OUTFUTS: NONE 

: CALLS: ECHO> FRVAL 

’ DESTROYS: Ar Br Cs F/F°S 


DESCRIFTION: NMOUT CONVERTS THE & BIT, UNSIGNED INTEG 
ER IN THE A REG- 
ISTER INTO TWO ASCII CHARACTERS, THE AS 
C11 CHARACTERS 


ARE THEN SENT TO THE CONSOLE AT THE CURR 
ENT FRINT POSITION. 
; 
NMOUT: 
PUSH H * SAVE H&L, DESTROYED BY FRVAL 
PUSH FSW + SAVE ARGUMENT 
RRC 
RRC : 
RRC 
RRC + GET UPPER 4 BITS TO THE LOWER 
4+ BIT POSITIONS : 
ANI HCHAR > MASK OUT UPPER 4 BITS 
MOV Cr+A 


CALL FRVAL CONVERT LOWER 4 BITS TO ASCII 


CALL ECHO + QOUTFUT RESULTS TO CONSOLE 
FOF PSW # GET ARGUMENT BACK 

ANI HCHAR > MASK OUT UFFER 4 BITS 
MOV CxA 


ISIS-II 8080/8085 MACRG 


LOC OBJ 


F658 CL6OF6 
F65B CO14F5 
FGSE Et 
F6SF C9 


F660 2LBDF? 
F663 0600 
F665 09 
F666 4E 
F667 C9 


F668 21CDF7 


F6SH 4E 


SEQ 


1608 
1609 
1610 
1611 
1612 
1613 
1614 


1615 
1616 
1617 
1618 
1619 
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SOURCE STATEMENT 


CALL PRVAL * CONVERT LOWER 4 BITS TO ASCII 
CALL ECHO * OUTPUT RESULTS TO CONSOLE 
POP H + RESTORE H&L 

RET 


HREKEKEEEKH KEE EEEREKEEREEEREREE EERE EER EEE RHEE EKER KEKEE 
HEREKEEKKKKEKEKE 


* a> “4% ae 


FUNCTION: FRVAL 

INPUTS: C - INTEGER (RANGE © - F) 
OUTPUTS: C - ASCII CHARACTER 
CALLS: NOTHING 

DESTROYS: Br C+He Ls F/F'S 


DESCRIPTION: PRVAL CONVERTS A NUMBER IN THE RANGE © T 
F HEX TO THE 


“> yh oe Pe ee 


CORRESFONDING ASCII CHARACTER: 0-9» A-F, 
FRVAL DOES NOT 


; CHECK THE VALIDITY OF THE INFUT ARGUMENT 
? 
PRVAL+ 
LXI H+DIGTB + ADDRESS OF LOOK-UP TABLE 
MVI BO > CLEAR UPFER 8 BITS OF B&C 
DAG B * ADD DIGIT VALUE TO ADDRESS 
MOV C+M * FETCH CHARACTER FROM MEMORY 
RET 


4 
¥ 


“ 


F CHEEK EEK EEREEEEHKEEKEEEEEEKEEREKEKEEEK EKER EREERHEEEREEE 
KEKE EKKKEKRKERRERE 


> FUNCTION: REGOS 

> INPUTS: NONE 

>; OQUTFUTS: NONE 

+ CALLS: ECHO:+ NMOUT,» ERROR» CROUT 
+ DESTROYS: As B+ Celts EsHe Le F/F'S 


DESCRIPTION: REGDS DISPLAYS THE CONTENTS OF THE REGIS 
TER SAVE LOCATIONS; 
; IN FORMATTED FORM,» TO THE CONSOLE. THE 
DESPLAY IS DRIVEN 
; FROM A TABLE» RTABs WHICH CONTAINS THE R 
EGISTERS PRINT 

; . SYMBOL; SAVE LOCATION ADDRESS, AND LENGT 
H (8 OR 16 BITS) : 


. 


? 


a 


REGDS: 


LXI H»RTAB + LOAD H&L WITH THE STARTING AL 
DRESS OF TABLE 
REGOS: 

MOV C+M * GET FRINT SYMBOL OF REGISTER 


ISI5-i11 8080/8085 


LOC 


F466C 
F6é6D! 
F&6E 
Fort 


Fa74 


FG/% 
F676 
FG67* 
F6?7T) 


FG7E 3 


Fae? 
Fé 
Foi 
F6AG 
FaA2 


OBJ 


79 

B7 
275F6 

CHOO6FS 


Cc? 


COLi4F5 
OESL 


CAIOFS 
1B 


1A 
CO43F 6 


QOE?O 
COLl4F3 


rs: 
2 


(S6HF6 


BE4O 
DSFO 
“aLECK7 
OSOE 
C37 7FO 


MACRO 


SEQ 


1653 
1654 
1655 
1656 


1657 
1658 
1659 
1660 
1661 
1662 


1663 
1664 


1665 
1666 
14667 
1668 
1669 
1670 
1671 


1672 
1673 
1674 
16753 
1676 
L677 


1678 
1479 
1680 
1661 
1682 


1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
Loot 
1692 
14693 


1694 
1695 
1696 
1697 
1698 


EXFL85 PAGE 36 


TEST FOR 9 - END OF TABLE 
IF NOT END, BRANCH 
ELSE - SEND CR/LF TO CONSOLE 


OUTFUT IDENTIFIER 


OUTFUT EQUALS SIGN 
POINT TO START OF SAVE LOC AD 


GET LOWER 8 BITS OF SAVE LOCA 


Ci, RAMST SHR 8& * PUT UFFER BYTE OF ADD 


ASSEMBLER» V2.0 
SGURCE STATEMENT 
MOV ArC 
ORA A ; 
JNZ REGGIO ; 
CALL CROUT ? 
TO TERMINATE DISPLAY 
RET 
REGGIO: 
CALL ECHO ; 
MVI C,’=’ 
CALL ECHO ; 
INX H ; 
DRESS 
MOV Es™ ; 
TIGN ADDRESS 
MVI 
RES IN SAVE LOC 
INX H ; 
LDAX i) ; 
CALL NMOUT ; 
MOV Ao M f 
ORA A ? 
JZ REGIS ; 
[iCX i] ; 
DER OF REGISTER 
LDIIAX ci ; 
CALL NMOUT ; 
REGIS: 
MVI Cet 5 
CALL ECHO ? 
INX H ; 
ENTRY 
JMP REGOS ; 
* FUNCTION: TERROR 
¢ WESCRIPTION: CALLED BY 
N ERROR, 
TERROR: 
MVI Ae 40H 
OUT FORTA 
LXI H+ TEMSG 
MVI B» TEMSCGL 
JMP MSGL 
3 
E 


POINT TO FLAG LENGTH 

GET CONTENTS OF SAVE ADDRESS 
DISFLAY ON CONCOLE 

GET LENGTH FLAG 

SET SIGN F/F 

IF 0» REGISTER IS & BITS 
ELSE ~- MOVE FOINTER TO REMAIN 


GET LOWER 8 BITS 

DISPLAY LOWER & BITS 

USE SPACE AS SEPARATOR 

FOINT TO START OF NEXT TABLE 


DG NEXT REGISTER 


THE LOAD ROUTINE TO INDICATE A 


7 FRE REKEREE KE KERKEEEREEE KER ERE EERE E EEE E EE REE KEE EREEE 


KEKE EHKELKES 


“bose 


FUNCTION: 
INFUTS: 
OUTFUTS: 


TABLE ) 


RGADR 


C - REGISTER DENOTING CHARACTER 
BRC - ADDRESS GF ENTRY IN RTAB (REGISTER 


ISIS-II 8080/8085 MACRO 


LOC 


F6AS 


F6A8 


FO6AB 


F6AC 


Fé6AD 


F6BO 


F6BIL 


FéB4 


F6RS 


F6B8 


F4B9 


F6BRA 
FO6RE 


OBJ 


21CDOF7 
110300 
rE 
B7 
CASCFS 
B9 
CABSFS 
a7. 


C3SABF6 


$0 
CF 


SEQ 
1699 
1700 
1701 
1792 
1793 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
i712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 


1730 
1731 
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SOURCE STATEMENT 


¢ CALLS: ERROR 

+ DESTROYS: As Be Ce De EsHs Le F/F'S 

+ DESCRIPTION: RGADR TAKES A SINGLE CHARACTER AS INPUT, 
THIS CHARACTER 

; DENOTES A REGISTER. RGADR SEARCHES THE 

REGISTER TABLE FOR 

; & MATCH TO THE INPUT. IF ONE OCCURS? RG 

ADR RETURNS THE 

, ADDRESS OF THE SAVE LOCATION CORRESPONDI 

NG TO THE REGISTER. 


; IF NO MATCH OCCURS» THEN THE REGISTER ID 
ENTIFIER IS ILLEGAL 
; AND. CONTROL IS PASSED TO THE ERROR HANDL 
ER. 
RGADR: 

LXI H»RTAB + H&L GETS ADURESS OF TABLE STA 
RT 

LXI DyRTABS + D&E GET THE SIZE OF THE TABLE 

ENTRY 

RGAOS: 

MOV ArM + GET REGISTER IDENTIFIER 

ORA A ; CHECK FOR END OF TABLE (IDENT 
IFIER = 90) 

JZ ERROR * IF AT END OF TABLE+ ARGUMENT 
WAS ILLEGAL 

CMP Cc + COMPARE TABLE ENTRY AND ARGUM 
ENT 

JZ RGALO + IF EQUAL» IDENTIFIER WAS FOUN 
D 

DAL 0 + ELSE ~ INCREMENT TABLE FOINTE 
R TO NEXT ENTRY 

JMF RGAOQS + TEST NEXT ENTRY 
RGALO: 

INX H > IF A MATCH, INCREMENT FOINTER 

TO SAVE LOC ADDRESS 

MOV BsH + AND GET VALUE TO B&C FOR RETU 
RN 

MOV CrL 

RET 
F HHH HHH HEHE HEHEHE HEHEHE HEHEHE HEHEHE KE HEE HEHEHE EH HEHE EE KEE HEHEHE HEE 
KEKE KEE KERB EE 
? 
F7 
+ FUNCTION: SRET 
+ INFUT: NONE 
+ OUTPUT: CARRY =1 
+ CALLS: NOTHING 
+; DESTROYS: CARRY 
5 DESCRIFTION: SRET IS JUMPED TO BY ROUTINES WISHING TO 


RETURN SUCCESS. 
5 SRET SETS THE CARRY TRUE AND RETURNS TO 


ISIS-II 8080/8085 MACRO 


LOC 


LOC 


F6BC 


OBJ 


OBJ 


a7, 


F6Bo C9 


FOBE 
FOéC1 
Fé6C2 
F6C3 
FO6CS 
F4C8 


SAF4F8 
B7 
Co 


QEOO 
CUC9FS 
C9 


SEQ 


SEQ 
1737 


1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 


1746 
1747 
1748 
1749 


1730 
1751 


1736 
1737 
1758 
1759 
1760 
1761 
1762 


1763 
1764 
1765 
1766 
1767 
1768 


1769 
1770 
1771 
1772 


1773 
1774 
1775 
1776 
1777 


1778 
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SOURCE STATEMENT 


THE CALLER OF THE 
; ROUTINE INVOKING SRET (NEXT VECTOR ON ST 
ACK). 


? 


SRET: 
STC + SET THE CARRY TRUE 
RET 


we 2 


F HEHEHE EHH EE EEE EEE EEE EK EEE KEKE KEKE EEE KEE REE EER EKER EEEN 
HEKKEKKEKERKEKKKERE 


3; FUNCTION: STHFO 

+ INPUTS: D&E - 16 BIT ADDRESS OF BYTE TO BE STORE 
tC INTO 

+ OUTPUTS: NONE 

> CALLS: STHLF 

>; DESTROYS: A+B+C+H+ Le F/F'S 


$ DESCRIPTION: STHFO CHECKS THE HALF BYTE FLAG IN TEMF 
TO SEE IF If 18 
; SET TO LOWER. IF SOs STHFO STORES A © T 
0 FAD OUT THE LOWER 
; HALF OF THE ADDRESSED BYTE. OTHERWISE, 
THE ROUTINE TAKES 


; NO ACTION, 
STHFO: 
LOA TEMP + GET HALF BYTE FLAG 
ORA 4 s SET F/F’S 
RNZ 3 IF SET TO UFFER DONT 00 ANYTH 
ING 
MVI C0 + ELSE - STORE THE VALUE © 
CALL STHLF + STORES THE 0 
RET 
? 
; 
FREER HEEEREEEEEEE KERR EEK KEELE HEEKEKEERRERKRKEKRHERKEREE 
KEKRKEEKKEERHEKEKEE 
7 
+ FUNCTION: STHLF 
> INPUTS: C - 4 BIT VALUE TO BE STORED IN HALF-BYT 
E 
; D&E - 16 BIT ADDRESS OF BYTE TO BE STORE 
0G INTO 
3; OUTPUTS: NONE 
+ CALLS: NOTHING 
+; DESTROYS: Ar Bs CoHe Le F/F'S 


DESCRIPTION: STHLF TAKES THE 4 BIT VALUE IN C AND STO 
RES IT IN HALF GF 

; THE BYTE ADDRESSED BY THE DRE REGISTERS. 
THE HALF BYTE 


ISIS-I1 8080/8085 MACRO 


LOC 


F6C? 
FéCA 
F6CB 
F6CC 
F4CE 
FéCF 
Fén2 
F603 
F6D6 
FéD7 
F609 
FéDA 
F600 


Fénc 
F6D0 
FOoDF 
FOEQ 
F6E1 
F6E2 
F6E3 
F6E4 


F6ES 
FOES 
F6E7 


OBJ 


SEQ 
1779 
1780 


1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
LZ et 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1797 
1800 
1801 
1802 
1803 
1804 
1805 
1806 


1807 
1808 
1809 
1810 
1811 
1812 


1813 
1814 


1815 ; 


1816 
1817 
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SOURCE STATEMENT 


$ USED (EITHER UPPER OR LOWER) IS DENOTED 
BY THE VALUE OF 
; THE FLAG IN TEMP. STHLF ASSUMES THAT TH 
E FLAG HAS BEEN 
5 PREVIOUSLY SET TO THE DESIRED VALUE. 
5 
STHLF : 
PUSH D 
FOF H * MOVE ADDRESS TO H&L 
MOV AC * GET VALUE 
ANI OFH + FORCE TO 4 BIT LENGTH 
MOV CrA ¢ PUT VALUE BACK 
LDA TEMP * GET HALF-BYTE FLAG 
ORA A $ CHACK FOR LOWER HALF 
JNZ STHOS * ERANCH IF NOT 
MOV AsM $s ELSE - GET BYTE 
ANI OF OH + CLEAR LOWER 4 BITS 
ORA Cc ' GET VALUE 
MOV MA + PUT IT BACK 
RET 
STHOS:s 
MOV Arm s IF UPPER HALF, GET BYTE 
ANI OFH > CLEAR UFFER 4 BITS 
MOV BoA ¢s SAVE BYTE IN B 
MOV AC + GET VALUE 
RRC 
RRC 
RRC 
RRC + MOVE LOWER 4 BITS INTO UFPER 
4 BITS 
ORA B * OR IN VALUE 
MOV M+ A * PUT IT BACK 
RET 
$ EEK KEE EEK EK EHH EERE EE HEHE EEE KEKE EEE EEE REE EE EERE KEE EI 
HKKEKE KEELER HEH 
s FUNCTION: VALOG 
* INFUTS: C - ASCII CHARACTER 
s OUTPUTS: CARRY - 1 IF CHARACTER REPRESENTS VALID 
HEX DIGIT 
; OQ IF OTHERWISE 
* CALLS: NOTHING 
+ DESTROYS: AsF/F’°S 
* DESCRIPTION: VALDOG RETURNS SUCCESS IF ITS INFUT ARGUM 
ENT IS AN ASCII 
; CHARACTER REPRESENTING A VALID HEX DIGIT 
(0-9 A-F)» AND 
$ A FAILURE OTHERWISE. 
; 
VALDG: 
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LOC 


FOES 
F4ED 
F6ER 


FEE 


FOFO 
F4r3 
FOF& 
FO6FS8 


FOoFB 
FSFE 
F7 OO 


F703 
F704 
F706 
F709 
F7OR 
F7OE 
F710 
F713 


F716 
| eran erg 
F718 
F7iA 


F710 
F71E 


OBJ 


79 
FE3O 
FAS7FS 


FE39 


FABCF6 
CABCF6 
FE4i 

FAS7FS 


FE47 
F257F5 
CBBCF 


79 
FE2C 
CABCFS 
FEOL 
CABCFS 
FE20 
CABCFS& 
C3S7F5 


CS 

ES 
0600 
210000 


20 


C210F7 


SEQ 


1827 
1828 
1829 


1830 


1831 
1832 
1833 
1834 


1835 
1836 
1837 
1838 
1839 
1840 


1841 
1842 


1843 ; 


1844 
1845 
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SOURCE STATEMENT 


2 
ry 
s 
7 
* 
s 
7 
“ 
? 
F 


FUNCTION: 
> INPUTS: 
+ OUTFUTS: 
ID DELIMITER 


CALLS: 

DESTROYS: 

DESCRIPTION: 
ENT IS A VALIE 


E RETURN) ANI 
Vv 


ALDL: 


=e owe 


> 
ei 
bar | 


FUSH 

FUSH 

MVI 

LXI 
WAITI: 

DCR 

JNZ 


A:C 

°O? + TEST FOR O 

FRET + IF CODE 15 LESS» CANNOT BE VA 
1K > ELSE - SEE IF CODE IS IN RANG 
SRET CODE BETWEEN © ANI 9 


> CODE EQUALS 9 
‘A’ + COMPARE WITH LETTER A 


FRET CANNOT BE LESS THAN A AND BE 
‘GB’ > COMPARE TO LETTER G 
FRET * NO - GREATER THAN F 
SRET > CODE IS FROM A TO F INCLUSIVE 


HELE EHEKEEE KEKE EEE EEE EEE EEE EERE ERE EEE REREEEKEEEEEEERE 
KEKEEKKEKKREEEKEE 


VALDL 
C - CHARACTER 
CARRY - 1 IF THE INPUT ARGUMENT IS A VAL 


QO OTHERWISE 
NOTHING 
As F/F/S 
VALOL RETURNS SUCCESS IF ITS INFUT ARGUM 
DELIMITER CHARACTER (SPACE, COMMA: CARRIAG 


FAILURE OTHERWISE. 


ArC 

eas ¢ CHECK FOR COMMA 

SRET 

OTH + CHECK FOR CARRIAGE RETURN 
SRET 

seed * CHECK FOR SPACE 

SRET 

FRET + ERROR IF NONE OF THE ABOVE 
B 

H 

B12 

H+ 

L * EACH SUB LOOF ~ 1200US 
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LOC 


F721 
F722 
F725 
F726 
F729 
F724 
F725 


F72C 
F72E 


F730 
F733 
F735 
F738 
F73A 
F73C 
F73F 


F742 
F743 
F744 
F748 
F74C 
F750 
F754 
F758 
F759 
F75A 
r7ob 
F7 SF 
F763 
F767 
F767 
F76A 
F74B 


OBJ 


25 
C210F7 


LBFO 
E602 


C247F0 
SE1IF 
S2FAF8 
3EO1 
D3F8 
32FE8F8 
C347F0O 


OL 

OA 

4558504C 
$F 524552 
20383520 
20205645 
5220312E 


$34F 5059 
32494748 
54203139 
3739 

on 

OA 
4E4355452 


SEQ 


1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 


1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 


1901 


1902 
1903 
1904 
1905 


1906 
1907 


19068 
1909 


1919 


1911 
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SOURCE STATEMENT 


BCR 
JNZ 
DCR 
JNZ 
FOP 
POF 
RET 


ANI 
=32CHAR/LINE ) 
JNZ 
MVI 
STA 
MVI 
OUT 
STA 
JMP 


“> ee > oe ee 


H § TOTAL LOOP ~ 0,3SEC 
WAITI 
B 
WAITI 
H 
B 


BDO IT TWELVE TIMES 


“se 


PORTA 5 READ STATUS PORT 


O2H + CHECK LINE LIMIT JUMPER (O=IN 
SIORET + LEAVE LLIMIT=63 

Ar Si 

LLIMIT + OTHERWISE STORE 31 

Ar OL 

CSR + INITIALIZE 8155 

USCSR 

SIORET 


F KEKE KE EEE EEEEEEREEKEKEKHEEHEEKKEEE EEE ER KREREEEEEEEREEEE 
HREEKEKEKKEREKREEEEE 

F FERRE EKER EE KERR ERE EEREEK REESE EREKEREKEEKEEEERREEREEE 
KEKEKEEKEEEKEEEEE 


we Mb oe 


MONITOR TABLES 


F REKREREEEEEEKE KEELE ERE EEE EEE HREEKREEKEE KEELE EKEREERERERERERE 
KRREEKEEKEKERKREEEKER 


? 


SINON: 
0B 


DB 


BB 


* SIGNON MESSAGE 
CR» LF» ‘’EXPLORER-85 VER 1.4’»CR» LF 


‘COPYRIGHT 1979’ »CR+ LF 


‘NETRONICS R&D’ > CR» LE 
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LOC OBJ SEQ SOURCE STATEMENT 


F76F 4F4E4943 

F773 33205226 

F777 44 

F778 OD 

F779 GA 

F77A 4E455720 Liz OB “NEW MILFORD, CT. ’+CR» LF 
F77E 40494C46 

F762 4F 524420 

F786 2043542E 


F78A Of 
F76B OA 
O44 1913 LSGNON EQt $-SINON + LEGNTH OF SIGNON MESSAGE 
1914 ; 
1915 +} 
1916 TEMSG: 
F78C OD 1917 DOB CR+LF» “TAPE ERROR’ »+CR+ LF 
F780 GA 
F78E 34415045 
F792 20455252 
F796 4F32 
F798 OL 
F799 OA 
OOOE 1918 TEMSGL ERU $-TEMSG +; LENGTH OF TAFE ERROR MESSAGE 
LOLS : 
1920 ; 
1921 CADR: ; TABLE OF ADDRESSES OF COMMAND 
ROUTINES 
F79A O000 1922 Diw o > DUMMY 
F79C 4CF2 1923 DW XCmMD 
RAGE Cor i 1924 TW Scma 
F7AG AZF1 1925 DW COME 
FFAS F4FoO 1926 CW TOMO 
F7Ad B2F1 i ie ag Dw MCME 
F7AG6 LAFIL 1928 CW GCMo 
F7AG SBF1 1929 DW TCME 
F7AA BOFO 1930 TW Decmn 
F7AC 6BF4 273i DW FCME 
F7AE ESF2 1932 Cw RCMO 
F7RO 93F3 1933 CW LCME 
1934 ; 
1935 CTAB: + TABLE OF VALID COMMAND CHARAC 
TERS 
F7R2 4C 1936 QR i 
F7B3 32 1937 DE “R’ 
F7B4 46 1938 DB sp as 
F7BS 44 1939 0B og 
F7R6 49 1940 DB aS 
F7B7 47 L941 OR *G* 
F7B8 40 1942 DR ly 
F7B9 34 1943 DB veel a 
F7BA 43 1944 Cig Oe 
F/B 33 1945 Or 3! 
F7BC 58 1946 DB eRe 
OOO 1947 NCMOS EQU $-CTAB +; NUMBER OF VALIO COMMANDS 


1948 + 
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LOC OBJ SEQ SOURCE STATEMENT 
1949 ; 
19380 ; 
1951 DICGTE: 
F7BO 30 1982 DE Gye 
F7BE 31 1953 DB es Ie 
F7BF 32 1954 DB “ieee 
F7CO 33 i955 DB *3/ 
F7C1i 34 1936 DE 14? 
F7C2 35 1957 BB oye 
F7C3 36 1958 DB 76! 
F7C4 37 1959 OB ope 
F7CS 38 1960 DE *8’ 
F7Cé6& 39 1961 DE hs fe 
F7C7 41 1962 DB ‘A?’ 
F7C8 42 1963 DB ‘BR’ 
F7C9 43 1964 De fl Te 
F7CA 44 1965 DB Dp? 
F7CER 45 1966 DB os) 
F7CC 46 1967 DB ‘FPF! 
1968 ; 
1969 ; 
1970 RTAB: + TABLE OF REGISTER INFORMATION 
F7CO 41 1971 DB ‘AS + REGISTER IDENTIFIER 
F7CE Ed 1972 DB ASAV AND OFFH :; ADDRESS OF REGISTER S 
AVE LOCATION 
F7CF 00 1973 0B Q ¢' LEGNTH OF REGISTER 
OOS 1974 RTABS EQU $-RTABR + SIZE OF AN ENTRY IN THIS TABL 
E 
F700 42 1975 DB ‘Bh’ 
F701 OF 1976 DB BESAV AND OFFH 
F702 00 1977 DE QO 
F703 43 1978 DE “Ge 
F704 DE 1979 DB CSAV AND OFFH 
F705 00 1980 DE QO 
F706 44 1981 Sa) =] AL? 
F707 DL i982 DB DSAV AND OFFH 
F708 00 1983 DB .@) 
F709 45 1984 TE st ke 
F70A DC 1985 DB ESAV AND OFFH 
F7DB 00 1986 DB QO 
F70IC 46 1987 DB 2 Es 
F7D0 Eo 1988 LB FSAV AND OFFH 
F7DE Oo 1989 DB ) 
F70F 49 1990 Cig oD 
F7EQO E4 L991 DB ISAYV AND OFFH 
F7Ei 00 1992 DE o 
F7E2 438 1993 DB ‘H’ 
F7E3 E3 1994 Dg HSAYV AND OFFH 
F7E4 00 1995 OB 8) 
F7E5 4C 1996 DE Le 
F7E6 ES 1997 DB LSAV AND OFFH 
F7E7 00 1998 =) QO 
F7E8 33 1999 DB oa 
F7E9 ES 2000 ne SSAV+1 AND OFFH 


F7EA O1 2001 0B 1 
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LOC OBJ SEQ SOURCE STATEMENT 
F7ER 50 2002 Dg ‘PP? 
F7EC E6 2003 DB FPSAV+i AND OFFH 
F7EG O1 2004 1m) =) 1 
F7EE 00 2005 DB Q $ END OF TABLE MARKERS 
F7EF oo 2006 DE oO 
2007 } 
2008 ; 


LOQD FHKE REE HEE KEEKEEEEH EE HEEE ERE EE EEE EEE EE ERE EEE EEK EEE EREN 
KHKEKRHHEHEKERER HEHE} 

2010 ; 

ZOLL SPACE RESERVED FOR THE MONITOR S 
TACK 

2012 ; 

ZOLZD $ KHER KEELE RHEE KEE KEE KE ER EEE EEE EERE EKER EKER EER HEE ERE 
EK HKE HEHEHE HEHEHE HEH 


2014 ; 
FSC 2015 ORG MNSTK + START OF MONITOR STACK 
2016 ; 
2OL7 + SAVE LOCATIONS FOR USER REGISTERS 
2018 ; 
Fanc oo 2019 ESAV: DE i?) 
Fann oo 2020 DSAV: DB Q 
FADE 60 2021 CSAV: DB QO 
FADF 00 2022 BSAV: DB Oo 
FREO OO 2023 FSAV: 0B Q 
FREL OO 2024 ASAV: OB oO 
FARES 00 2025 LSAV: DB QO 
FEES OO 2026 HSAV: DB ) 
FRES OO 2027 ISAV: DB i) 
2028 FSAV: 
FBES OO 2029 PCLSV+: DB ) - 
FRE6 00 2930 PCHSV: OB QO 
2031 SSAV: 
FSE7 OO 2032 SFLSV: DB Q 
FS8EB OO 2033 SFHSV: NE Q 
2034 ; 


FODDER Ff RRR KHMER HEHE EHH EEE HEE EHH HEHEHE KHER EKHE 

EKER EREHEKEK: 

2036 ; 

2037 

2038 

ZOSD FEHR KEE EERE EEE EEK HK EERE EE LEE KKH EK K EEE REE E REE KEELER EREREEE 
KHEKKEKE HEHEHE HEHEHE 


MONITOR STORAGE LOCATIONS 


2040 ; 
2041 3 
FEE? 0000 2042 BITTIME: DW tf) 
FREB 9000 2043 HALFBIT: [tw oO 
FRED O000 2944 CURAD: DW oO 
FBREF OO 2045 CURDT: 06 O 
ooo4 2946 OBUFF: os 4 
2047 TEMP: 
FSF4 oo 2048 RGPTR: DB 0 
FOFS G0 2049 PROGNO: OB QO 
FAFS6 00 2050 IBUFF: OB QO 


FAF7 00 2OS1 NEWLN: [DB OQ 
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LOC OBJ SEQ 

F8F8 00 2052 USCSR: 

F8F9 00 2053 LCOUNT: 

FAFA OO 2054 LLIMIT: 

FAFR 0000 2055 DIN: 

FAaFD 0000 2956 DOUT: 

2057 ; 
2058 

PUBLIC SYMBOLS 
EXTERNAL SYMBOLS 
USER SYMBOLS 
ASAYV A F8REL BCO A F402 
BITiS A F37B BIT2ZO0 A F384 
BITIN A FS3E9 BITINi A F3EA 
BiTO A F369 BITSI A 0009 
BOOT A FOOO BRCHR A O0O1B 
BRI4 A F445 BRID A F43C 
BYTOL A F40E BYTO2 A F4i5 
BYTIN A F407 BYTOL A FS4E 
BRYTOUT A F34A CADR A F794 
CCmMi3 A Fic2 CCmMo A FIA2 
Ci2 A F496 Ci3 A F49E 
CIN A F48A CNVBN A FSSA 
CO2 A F4F2 COUT A F4E5 
CSAV A F8&DE CSR A OOF8 
CURDT A FS8EF DATA A F328 
DCMO7) A FoC4 DCMio A FOoD4 
DIGTR A F7BOD DIN A FAFB 
DSAV A Fenn ECHO4 A FS25 
ECHO & F514 ECHOR A F50C 
ESC A OO18 FALSE + 0001 
FCMD A F46B FRET A F357 
GOM1O0 A F1i3s GCmME A FiliAé 
GETHX A F56A . GETNM A F5C8 
GNMOS A FSCF GNM1O0 A FSE4 
GNM23 A F602 GNM30O A F606 
GTCO3 A FOaD HALFBI A F8EB 
HILO é& F6on HSAV A F&E3 
ICMi0 A F16B ICM20 A F173 
INVRT A OOFF ISAV A FRE4 
LCMDS A F3A6 LCMDS A FS3AF 
LCOUNT & F&F9 LOR A F301 
LLIMIT A FAFA LOWER A QO000 
MCMOS A F1BA MCMD A F182 
MSGL A FO77 NCMOS A OOOB 
OBUFF A F&FO FCHSV A F&ES 
FORTA A OOFO FORTAD A OOF2 
FORTC A OOFB POUT A F4C6 
FROGNO A F&F5S FRTYO A OO7F 
RAMST A FBOO RCMD A F2E5 
REGIZ A F490 REGOS A F6é8 


SOURCE STATEMENT 


DB 
DE 
DB 
DW 
DW 


END 


REGOS 
RGAOS 


fon omen «) 


PpPpPrpPrpPrypPrpPryprpPpHPprpPpPrpPrPPPPPPrpPPpPpIPpPd 


F382 
F380 
F3F1 
QOOB 
F441 
F7FA 
F42B 
F362 
F1A7 
F47F 
F4A1 
F4DA 
000m 
F7B2 
FOC? 
FOE9 
F634 
F527 
F54C 
F474 
F8EO 
F563 
F570 
FSF2 
FO9A 
OOOF 
FAF6 
Fi79 
F393 
F3B3 
OODA 
FEZ 
FO72 
F8F7 
FSE5 
OOF L 
OOFA 
F660 
F66B 
F6AB 
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BIT19O 
BIT30 
BITING 
BITTIM 
BRI3 
BSAV 
BYTO4 
BYTOS 
CCM10 
CIi 
CI5 
COl 
CROUT 
CURAD 
DCMOS 
DCMD 
DOUT 
ECHO6 
ESAV 
FCM1i0 
GCMOS5 
GETCM 
GHX10 
GNM20 
GTC19 
HILOS 
TICMOS 
ICMD 
LCME'1 
LCMLI6 
LIMTST 
LSGNON 
MNSTK 
NMOUT 
FIN 
FORTED 
PRLOUT 
PSAV 
REG1Q 
RGA1O 


PpPprPpPpPrypPropYPryprEypPapPpPPrySPpPPH Pr DPIP PP PP yPPrDPP PPD 
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VALIG 
XCMOS 
XCM2O 
XCME 


FéE8 VALDL 
F27C XCM10 
F2EC XCM25 
F26C 


F703 WAIT 
F285 XCM15 
F203 XxCM27 


F716 WAITI 
F298 XCM18 
F204 XCM30 


RGADR A F6AS RGPTR A F@F4 RMUSE A 0022 RSAVE A FO4E 
RSROS A FSBL RSR10 A FSB5 RSTS5 A FRAG RST65 A F&A 
RSTOR A FS9F RTAB A F7CD RTABS A 0003 SCmMD A Ficé 
SINON A F742 SIORET A FO47 SIOTST A F435 SFHSV A F&E8 
SPLSV A FBE7 SRET A FéBC SSAV A FBE7 SSTRT A 0080 
START A FOOS STARTL A FOSF STHOS A F6DC STHFQ A F&BE 
STHLF A Fét? STOPFB A 0040 STFOS A FiDE STPiS A FiEA 
STFISA A FIFO STP16 A F201 STP20 A F207 STP 21 -cAanF2ic 
STF2Z2 A F223 STF23 A F22 STP25 A F238 STRT A 00CO 
TCMOO A FIQE TCMOL A Fii4d TCMD A FOF4 TEMP A F8F4 
TEMSG A F78C TEMSGL A OOOE TERM A OO18 TERROR A F699 
TIMHI A OOFTD TIMLO A OOFC TRAIL A F339 TRUE + 9000 
UNMSK A OOOE UFFER A OOFF USCSR A F&F8 USINT A FBAG 

A A A A 

A A A A 

A A A A 

A 


ASSEMBLY COMPLETE» NO ERRORS 


